home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / !groovygames! / zerogravity / zerogravity.source < prev   
Text File  |  1997-05-11  |  146KB  |  5,462 lines
  1. ; *****************************************************************************
  2. ;
  3. ; $VER: ZeroGravity Source 1.0 (C) 1997 Matthijs Hollemans
  4. ;
  5. ; *****************************************************************************
  6. ;
  7. ; This is the full source code to Zero Gravity. I used the very cool ASM-One
  8. ; V1.29 assembler from T.F.A. but that doesn't matter anyway because you won't
  9. ; be able to reassemble this without the required binary includes...
  10. ;
  11. ; *****************************************************************************
  12.  
  13. SHOW    equ    0        ; 1 = Show rastertiming,   0 = Don't
  14. DEBUG    equ    1        ; 1 = Debug-mode on,       0 = Normal
  15. ASMOne    equ    1        ; 1 = Assemble for ASMOne, 0 = Make executable
  16.  
  17. run    IFNE    ASMOne        ;
  18.          jsr    Init        ;
  19.           illegal        ; 
  20.        ELSE            ;
  21.          jsr    WBInit        ;
  22.          jsr    Init        ;
  23.          jsr    WBDone        ;
  24.       rts            ; 
  25.        ENDC            ;
  26.  
  27. ; =============================================================================
  28. ;
  29. ;          S Y S T E M   S T A R T U P / E X I T   R O U T I N E S
  30. ;
  31. ; =============================================================================
  32.  
  33. ; *****************************************************************************
  34. ; Macros
  35. ; *****************************************************************************
  36.  
  37. CLRMEM     MACRO                ; Clear memory pool size 
  38. memptr     set 0                ; 
  39.        ENDM                ;
  40.        
  41. ADDMEM     MACRO                ; Request memory
  42. \1     set memptr            ; \1 = Offset in memory pool
  43. memptr     set memptr+\2            ; \2 = Size of required memory
  44.        ENDM                ;
  45.  
  46. ALIGNLONG MACRO                ; Align to longword
  47.     CNOP    0,4            ;
  48.     ENDM                ;
  49.  
  50. ALIGNQUAD MACRO                ; Align to quadword
  51.     CNOP    0,8            ;
  52.     ENDM                ;
  53.  
  54.  
  55. ; *****************************************************************************
  56. ; WBInit
  57. ; *****************************************************************************
  58.  
  59. WBInit    clr.l    ReturnMsg        ;
  60.     move.l    $4.w,a6            ;
  61.     sub.l    a1,a1            ;
  62.     jsr    -294(a6)        ; FindTask(NULL)
  63.     move.l    d0,a4            ;
  64.     tst.l    $ac(a4)            ; Called from CLI?
  65.     bne.b    .Done            ;
  66.  
  67.     move.l    $4.w,a6            ;
  68.     lea    $5c(a4),a0        ; pr_MsgPort
  69.     jsr    -384(a6)        ; WaitPort()   
  70.     lea    $5c(a4),a0        ; pr_MsgPort
  71.     jsr    -372(a6)        ; GetMsg()     
  72.     move.l    d0,ReturnMsg        ; Save message for later reply
  73. .Done    
  74.     rts
  75.  
  76.  
  77. ; *****************************************************************************
  78. ; WBDone
  79. ; *****************************************************************************
  80.  
  81. WBDone     tst.l    ReturnMsg        ; Called from CLI ?
  82.     beq.b    .Done            ; Then skip next bit
  83.  
  84.     move.l    $4.w,a6            ;
  85.     jsr    -132(a6)            ; Forbid()
  86.     move.l    ReturnMsg,a1        ; Send message back
  87.     jsr    -378(a6)            ; ReplyMsg()
  88. .Done    
  89.     move.l    ReturnCode,d0        ; Returncode
  90.     rts
  91.  
  92.  
  93. ; *****************************************************************************
  94. ; Init 
  95. ; *****************************************************************************
  96.  
  97. Init    ; Open libraries ------------------------------------------------------
  98.  
  99.     move.l    $4.w,a6            ;
  100.        lea     intname,a1        ;
  101.        moveq     #0,d0            ;
  102.        jsr     -552(a6)         ; OpenLibrary()
  103.        move.l     d0,intuibase        ;
  104.        beq.w     nointui            ;
  105.  
  106.        lea     grafname,a1        ;
  107.        moveq     #0,d0            ;
  108.        jsr     -552(a6)        ; OpenLibrary()
  109.        move.l     d0,gfxbase        ;
  110.        beq.w     nogfx            ;
  111.  
  112.     lea    dosname,a1        ;
  113.     moveq    #0,d0            ;
  114.     jsr    -552(a6)        ; OpenLibrary()
  115.     move.l    d0,dosbase        ;
  116.     beq.w    nodos            ;
  117.  
  118.     ; Check for AGA -------------------------------------------------------
  119.  
  120.     move.l    gfxbase,a6        ;
  121.     btst.b    #2,$ec(a6)        ; gb_ChipRevBits0
  122.     beq.w    noaga            ;
  123.         
  124.     ; Allocate chip memory ------------------------------------------------
  125.  
  126.        move.l     $4.w,a6            ;
  127.        move.l     #chip+65536,d0        ; (64k border because of slow copper)
  128.        move.l     #$2,d1            ; MEMF_CHIP
  129.        jsr     -198(a6)        ; AllocMem()
  130.        move.l     d0,chipmem        ;
  131.        beq.w     nochip             ;
  132.  
  133.     ; Allocate other memory -----------------------------------------------
  134.  
  135.        move.l     #fast+8192,d0         ; (8k border for 040 caches)
  136.        move.l     #$10000,d1        ; MEMF_CLEAR
  137.        jsr     -198(a6)        ; AllocMem()
  138.        move.l     d0,fastmem        ;
  139.        beq.w     nofast            ;
  140.  
  141.     ; Close Workbench -----------------------------------------------------
  142.  
  143.     IFEQ    ASMOne            ;
  144.       move.l    intuibase,a6        ;
  145.     jsr    -78(a6)            ; CloseWorkBench()
  146.     move.l    d0,wbclosed        ; Store result
  147.     ENDC                ;
  148.     
  149.     ; Reset screen hardware -----------------------------------------------
  150.     
  151.        move.l     gfxbase,a6        ;
  152.        move.l     $22(a6),oldview        ; gb_ActiView
  153.        sub.l     a1,a1            ;
  154.        jsr     -222(a6)         ; LoadView(NULL)
  155.     jsr    -270(a6)        ; WaitTOF() 
  156.     jsr    -270(a6)        ; WaitTOF()
  157.        jsr    -228(a6)        ; WaitBlit()
  158.        jsr     -456(a6)         ; OwnBlitter()
  159.     move.w    #0,$dff01fc        ; Reset AGA sprites
  160.     move.w    #0,$dff0106        ; 
  161.  
  162.     ; Kill multitasking ---------------------------------------------------
  163.  
  164.     move.l    $4.w,a6            ;
  165.     jsr    -132(a6)        ; Forbid()
  166.     
  167.     ; Get VBR -------------------------------------------------------------
  168.  
  169.        move.l     $4.w,a6            ; Switch to supervisor mode, because
  170.        lea     .get(pc),a5        ; movec is a privileged instruction.
  171.        jsr     -$1e(a6)          ; Supervisor()
  172.        bra.b     .store            ;
  173. .get     movec    vbr,d0            ; (dc.l $4e7a0801)
  174.        rte                ;
  175. .store     move.l     d0,_vbr            ; Store VBR
  176.  
  177.     ; Int3 Vector ---------------------------------------------------------
  178.  
  179.     move.w    $dff002,d0        ; Save DMACON
  180.     ori.w    #$8000,d0        ;
  181.     move.w    d0,olddmacon        ;
  182.     move.w    $dff01c,d0        ; Save INTENA
  183.     ori.w    #$c000,d0        ;
  184.     move.w    d0,oldintena        ;
  185.  
  186.     move.w    #$7fff,$dff09a        ; Kill interrupts
  187.     move.w    #$7fff,$dff09c        ; 
  188.     move.w    #$7fff,$dff096        ; Kill DMA
  189.     
  190.        move.l     _vbr,a0            ;
  191.        move.l     $6c(a0),oldint3        ; Store old Int3 vector
  192.  
  193.  
  194. ; *****************************************************************************
  195. ; Main 
  196. ; *****************************************************************************
  197.  
  198.        jsr Main
  199.  
  200. ; *****************************************************************************
  201. ; Done 
  202. ; *****************************************************************************
  203.  
  204. Done    ; Restore interrupt vectors -------------------------------------------
  205.  
  206.     move.w    #$7fff,$dff09a        ; Kill interrupts
  207.     move.w    #$7fff,$dff09c        ;
  208.     move.w    #$7fff,$dff096        ; Kill DMA
  209.     
  210.        move.l     _vbr,a0            ;
  211.        move.l     oldint3,$6c(a0)        ;
  212.  
  213.     move.w    olddmacon,$dff096    ; Restore DMACON
  214.     move.w    oldintena,$dff09a    ; Restore INTENA
  215.  
  216.     ; Enable multitasking -------------------------------------------------
  217.     
  218.     move.l    $4.w,a6            ;
  219.     jsr    -138(a6)        ; Permit()
  220.  
  221.     ; Restore screen ------------------------------------------------------
  222.     
  223.        move.l     gfxbase,a6        ;
  224.        move.l     oldview,a1        ;
  225.        jsr     -222(a6)         ; LoadView(oldview)
  226.        jsr     -462(a6)         ; DisownBlitter()
  227.  
  228.        move.l     $26(a6),$dff080       ; gb_copinit
  229.        move.l    #0,$dff088        ;
  230.  
  231.     ; Open Workbench ------------------------------------------------------
  232.  
  233.     IFEQ    ASMOne            ;
  234.     tst.l    wbclosed        ; IF Workbench was closed 
  235.     beq.b    .wbopen            ;
  236.     move.l    intuibase,a6        ;
  237.     jsr    -210(a6)        ;   OpenWorkBench()
  238. .wbopen                    ; ENDIF
  239.     ENDC                ;
  240.     
  241.     ; Free memory and close libraries -------------------------------------
  242.     
  243.        move.l    $4.w,a6            ;
  244.        move.l     fastmem,a1        ;
  245.        move.l     #fast+8192,d0        ;
  246.        jsr     -210(a6)        ; FreeMem()
  247. nofast
  248.        move.l    $4.w,a6            ;
  249.        move.l     chipmem,a1        ;
  250.        move.l     #chip+65536,d0        ;    
  251.        jsr     -210(a6)        ; FreeMem()
  252. nochip
  253. noaga
  254.        move.l     4,a6            ;
  255.     move.l    dosbase,a1        ;
  256.     jsr    -414(a6)         ; CloseLibrary()
  257. nodos
  258.     move.l    4,a6            ;
  259.        move.l     gfxbase,a1        ;
  260.        jsr     -414(a6)         ; CloseLibrary()
  261. nogfx
  262.        move.l     4,a6            ;
  263.        move.l     intuibase,a1        ;
  264.        jsr     -414(a6)         ; CloseLibrary()
  265. nointui
  266.     move.l    ReturnCode,d0        ; 
  267.        rts
  268.  
  269.  
  270. ; *****************************************************************************
  271. ; Data 
  272. ; *****************************************************************************
  273.  
  274.     ALIGNLONG
  275.  
  276. ReturnMsg    dc.l    0        ; Workbench message
  277. ReturnCode    dc.l    0        ; CLI return code
  278.         
  279. _vbr         dc.l     0        ; VBR address
  280.  
  281. oldint3        dc.l     0        ; Old Int3 vector
  282. oldview     dc.l     0        ; Old view
  283.  
  284. olddmacon    dc.w     0        ; Old DMACON
  285. oldintena    dc.w     0        ; Old INTENA
  286.  
  287. chipmem     dc.l     0        ; Amount of required chipmem
  288. fastmem     dc.l     0        ; Amount of required fastmem
  289.  
  290. dosbase        dc.l     0        ; DOSBase
  291. gfxbase     dc.l     0        ; GFXBase
  292. intuibase     dc.l     0        ; IntuiBase
  293.  
  294. wbclosed    dc.l    0        ; 0 = Unable to close Workbench
  295.  
  296. dosname        dc.b     "dos.library",0
  297. grafname     dc.b     "graphics.library",0
  298. intname     dc.b     "intuition.library",0
  299.  
  300.  
  301. ; =============================================================================
  302. ; 
  303. ;                             M A I N   P R O G R A M
  304. ;
  305. ; =============================================================================
  306.  
  307. ; *****************************************************************************
  308. ; Macros
  309. ; *****************************************************************************
  310.  
  311. PPUTSTR    MACRO                ; PPUTSTR StringPtr,PlanarBufferOffset
  312.     movem.l    d0-d7/a0-a6,-(sp)    ;
  313.     move.l    \1,a0            ;
  314.     move.l    chipmem,a1        ;
  315.     add.l    #scr0,a1        ;
  316.     add.l    \2,a1            ;
  317.     bsr    PPutStr            ;
  318.     movem.l    (sp)+,d0-d7/a0-a6    ;
  319.     ENDM                ;
  320.  
  321. PPUTCHR    MACRO                ; PPUTCHR Character,PlanarBufferOffset
  322.     movem.l    d0-d7/a0-a6,-(sp)    ;
  323.     moveq    #0,d0            ;
  324.     move.l    \1,d0            ;
  325.     move.l    chipmem,a1        ;
  326.     add.l    #scr0,a1        ;
  327.     add.l    \2,a1            ;
  328.     bsr    PPutChr            ;
  329.     movem.l    (sp)+,d0-d7/a0-a6    ;
  330.     ENDM                ;
  331.  
  332. PPUTNUM    MACRO                ; PPUTNUM Number,PlanarBufferOffset
  333.     movem.l    d0-d7/a0-a6,-(sp)    ;
  334.     move.l    \1,d0            ;
  335.     add.l    #48,d0            ;
  336.     move.l    chipmem,a1        ;
  337.     add.l    #scr0,a1        ;
  338.     add.l    \2,a1            ;
  339.     bsr    PPutChr            ;
  340.     movem.l    (sp)+,d0-d7/a0-a6    ;
  341.     ENDM
  342.     
  343. CPUTSTR    MACRO                ; CPUTSTR StringPtr,ChunkyBufferOffset
  344.     movem.l    d0-d7/a0-a6,-(sp)    ;
  345.     lea    \1,a0            ;
  346.     move.l    RendCh,a1        ;
  347.     add.l    \2,a1            ;
  348.     bsr    CPutStr            ;
  349.     movem.l    (sp)+,d0-d7/a0-a6    ;
  350.     ENDM                ;
  351.  
  352. CPUTCHR    MACRO                ; CPUTCHR Character,ChunkyBufferOffset
  353.     movem.l    d0-d7/a0-a6,-(sp)    ;
  354.     moveq    #0,d0            ;
  355.     move.l    \1,d0            ;
  356.     move.l    RendCh,a1        ;
  357.     add.l    \2,a1            ;
  358.     bsr    CPutChr            ;
  359.     movem.l    (sp)+,d0-d7/a0-a6    ;
  360.     ENDM                ;
  361.  
  362. CPUTNUM    MACRO                ; CPUTNUM Number,ChunkyBufferOffset
  363.     movem.l    d0-d7/a0-a6,-(sp)    ;
  364.     moveq    #0,d0            ;
  365.     move.l    \1,d0            ;
  366.     add.l    #48,d0            ; Convert Number to ASCII
  367.     move.l    RendCh,a1        ;
  368.     add.l    \2,a1            ;
  369.     bsr    CPutChr            ;
  370.     movem.l    (sp)+,d0-d7/a0-a6    ;
  371.     ENDM                ;
  372.  
  373.  
  374. ; *****************************************************************************
  375. ; Memory 
  376. ; *****************************************************************************
  377.  
  378.     CLRMEM                ;
  379.     ADDMEM    shit,8            ; If I leave this bit out, then the
  380.                     ; cop0 copperlist gets totally fucked 
  381.                     ; up. This is related to mt_init. Why ?
  382.     
  383.     ADDMEM     cop0,8192        ; Copperlists
  384.     ADDMEM    cop1,8192        ;
  385.     
  386.           ADDMEM     ch0,160*128        ; Chunky buffers 
  387.        ADDMEM    ch1,160*128        ;
  388.        ADDMEM     scr0,320*128        ; Screens    
  389.        ADDMEM    scr1,320*128        ;
  390.     
  391.        ADDMEM     buf2,160*128*2        ; Pass-buffer   (160*128/2 ???)
  392.        ADDMEM     sblbuf,160*128        ; Scramble-buffer 
  393.        ADDMEM     sprbuf,(312*8*2)*8    ; Sprite buffer  
  394.           ADDMEM     chipend,1        ;
  395. chip     equ chipend              ; Amount of required chipmem
  396.  
  397.        CLRMEM                ;
  398.        ADDMEM     blist0,40*1024         ; Blitlist buffers
  399.         ADDMEM    blist1,40*1024        ;
  400.        ADDMEM     fastend,1        ;
  401. fast     equ fastend            ; Amount of required fastmem
  402.  
  403.  
  404. ; *****************************************************************************
  405. ; Raw key codes
  406. ; *****************************************************************************
  407.  
  408. KEY_NONE    = $00            ; No key pressed
  409. KEY_NEW        = $01            ; New key pressed
  410. KEY_REPEAT    = $02            ; Key repeated
  411.  
  412. KEY_F1          = $50        
  413. KEY_F2          = $51
  414. KEY_F3          = $52
  415. KEY_F4          = $53
  416. KEY_F5          = $54
  417. KEY_F6          = $55
  418. KEY_F7          = $56
  419. KEY_F8          = $57
  420. KEY_F9          = $58
  421. KEY_F10         = $59
  422.  
  423. KEY_Q           = $10
  424. KEY_W           = $11
  425. KEY_E           = $12
  426. KEY_R           = $13
  427. KEY_T           = $14
  428. KEY_Y           = $15
  429. KEY_U           = $16
  430. KEY_I           = $17
  431. KEY_O           = $18
  432. KEY_P           = $19
  433. KEY_A           = $20
  434. KEY_S           = $21
  435. KEY_D           = $22
  436. KEY_F           = $23
  437. KEY_G           = $24
  438. KEY_H           = $25
  439. KEY_J           = $26
  440. KEY_K           = $27
  441. KEY_L           = $28
  442. KEY_Z           = $31
  443. KEY_X           = $32
  444. KEY_C           = $33
  445. KEY_V           = $34
  446. KEY_B           = $35
  447. KEY_N           = $36
  448. KEY_M           = $37
  449.  
  450. KEY_ESC         = $45
  451. KEY_ENTER       = $44
  452. KEY_SPACE       = $40
  453. KEY_BACKSPACE    = $41
  454.  
  455.  
  456. ; *****************************************************************************
  457. ; Types
  458. ; *****************************************************************************
  459.  
  460. Type_HoleX1    equ    0        ; }_ TopLeft-coordinates of hole
  461. Type_HoleY1    equ    2        ; }
  462. Type_HoleX2    equ    4        ; }_ BottomRight-coordinates of hole
  463. Type_HoleY2    equ    6        ; }
  464.  
  465. Level_sizeof    equ    8        ;
  466. Level_NumWall    equ    0        ; Total number of walls
  467. Level_Ships    equ    2        ; Number of ships
  468. Level_Time    equ    4        ; Time (in ticks)
  469.  
  470. Coll_BoundsX1    equ    0        ; }_ TopLeft-coordinates of 
  471. Coll_BoundsY1    equ    2        ; }  collision boundary
  472. Coll_BoundsX2    equ    4        ; }_ BottomRight-coordinates of
  473. Coll_BoundsY2    equ    6        ; }  collision boundary
  474.  
  475.  
  476. ; *****************************************************************************
  477. ; Constants
  478. ; *****************************************************************************
  479.  
  480. TRUE        = 1            ; }_ Boolean values
  481. FALSE        = 0            ; }
  482.  
  483. BufferW        = 160            ; }_ Chunky buffer dimensions
  484. BufferH        = 128            ; }
  485.  
  486. ClipL        = 0            ; }
  487. ClipR        = BufferW-1        ; }_ Clipping borders
  488. ClipT        = 0            ; }
  489. ClipB        = BufferH-1        ; } 
  490.  
  491. CenterX        = BufferW/2        ; }_ Center of chunky buffer
  492. CenterY        = BufferH/2        ; }
  493.  
  494. ViewD        = 256*32*2/8        ; Maximum visible depth
  495. RealZ        = 200            ; Adjust player Z-coordinate
  496.  
  497. MinSpd        = 0            ; Minimum speed
  498. MaxSpd        = 25600            ; Maximum speed
  499.  
  500. Plyr_XInit    = 80            ; }_ Initial player coordinates
  501. Plyr_YInit    = 75            ; }
  502.  
  503. Plyr_XMin    = 32            ; }
  504. Plyr_XMax    = BufferW-32        ; }_ Min/Max. player coordinates
  505. Plyr_YMin    = 32            ; }
  506. Plyr_YMax    = BufferH-32        ; }
  507.  
  508. XAccel        = 1            ; }
  509. YAccel        = 1            ; }- Acceleration
  510. ZAccel        = 256            ; }
  511.  
  512. NumLevel    = 5            ; Number of levels
  513. MaxWall        = 128            ; Max. number of walls per level
  514.  
  515. Flg_Normal    = 0            ; Game-loop status flags
  516. Flg_Collision    = 1            ;   Hit a wall
  517. Flg_LevelDone    = 2            ;   Flying away from level
  518. Flg_LevelInit    = 3            ;   Flying to new level
  519. Flg_GetReady    = 4            ;   Ready to start new level
  520. Flg_NewShip    = 5            ;   Ready to start new life
  521. Flg_OutOfTime    = 6            ;   No time left
  522. Flg_RaceOver    = 7            ;   Crashed too many times
  523. Flg_Pause    = 8             ;   Pause mode
  524. Flg_Quit    = 99            ;   Leaving game-loop
  525.  
  526. WT_Start    = 0            ; Wall types
  527. WT_Finish    = 1            ;
  528. WT_Left        = 2            ;
  529. WT_Right    = 3            ;
  530. WT_Up        = 4            ;
  531. WT_Down        = 5            ;
  532.  
  533. IFlg_Text    = 0            ; Show intro-text
  534. IFlg_AskName    = 1            ; User enters name
  535. IFlg_TrackSel    = 2            ; Track select
  536. IFlg_Quit    = 99            ; Leaving intro-loop
  537. IFlg_QuitToWB    = 100            ; Leaving intro-loop and exit to WB
  538.  
  539. MaxStrLen    = 11            ; Max. length of input string
  540.  
  541.  
  542. ; *****************************************************************************
  543. ; Code
  544. ; *****************************************************************************
  545.  
  546.     ALIGNLONG
  547.     
  548. Main    bsr.b    InitMain            ; Initialisation
  549.  
  550. .Intro    bsr.w    Intro                ; Do intro
  551.     cmp.l    #IFlg_QuitToWB,Intro_Flags    ; IF player pressed ESC ?
  552.     beq.b    .Done                ; THEN exit
  553.         
  554.     bsr.w    InitLevel            ;
  555.     bsr.w    GameLoop            ;
  556.     bra.b    .Intro                ;
  557. .Done    
  558.     bsr.w    DoneMain            ; Clean up
  559.     rts                    ;
  560.  
  561.  
  562. ; =============================================================================
  563. ;
  564. ;                           G A M E   R O U T I N E S
  565. ;
  566. ; =============================================================================
  567.  
  568. ; *****************************************************************************
  569. ; InitMain
  570. ; -----------------------------------------------------------------------------
  571. ; Inputs     : -
  572. ; Output     : -
  573. ; Description: First initialisation.
  574. ; Notes      : -
  575. ; Scratch    : -
  576. ; Author     : -
  577. ; History    : -
  578. ; *****************************************************************************
  579.  
  580. InitMain
  581.     ; Copy bitplane pointers to intro copperlist --------------------------
  582.     
  583.     lea    IntroCopBpl,a2        ; a2=Position in copperlist header
  584.     move.l    #IntroPic,d0        ; d0=Screen address
  585.        move.w     #6-1,d7            ; Write 6 bitplanes
  586. .mkbpl    swap    d0            ;
  587.     move.w    d0,2(a2)        ; Write MSW
  588.     swap    d0            ;
  589.     move.w    d0,6(a2)        ; Write LSW
  590.     addq.l    #8,a2            ; Next position in copperlist
  591.     add.l    #320*256/8,d0        ; Next bitplane
  592.     dbf    d7,.mkbpl        ;
  593.  
  594.     ; Copy sprite pointers to intro copperlist ----------------------------
  595.  
  596.     lea    IntroCopSpr,a2        ; a2=Position in copperlist header
  597.     move.l    #SpriteData,d0        ; d0=Address of sprite data
  598.        move.w     #8-1,d7            ; Write 8 sprites
  599. .mkspr    swap    d0            ;
  600.     move.w    d0,2(a2)        ; Write MSW
  601.     swap    d0            ;
  602.     move.w    d0,6(a2)        ; Write LSW
  603.     addq.l    #8,a2            ; Next position in copperlist
  604.     dbf    d7,.mkspr        ;
  605.     
  606.     ; Make BlitterScreen copperlists --------------------------------------
  607.  
  608.     move.l    chipmem,a0        ; 
  609.     add.l    #cop0,a0        ; a0=Copperlist 0
  610.        move.l     chipmem,a1        ;
  611.      add.l     #scr0,a1        ; a1=Screen 0
  612.        bsr.w     mkbltscr                ; Create copperlist
  613.  
  614.     move.l    chipmem,a0        ;
  615.     add.l    #cop1,a0        ; a0=Copperlist 1
  616.        move.l     chipmem,a1        ;
  617.      add.l     #scr1,a1        ; a1=Screen 1
  618.        bsr.w     mkbltscr                ; Create copperlist
  619.  
  620.     ; Init double buffering pointers --------------------------------------
  621.  
  622.     move.l    fastmem,RendBL        ;
  623.     add.l    #blist0,RendBL        ;
  624.     move.l    fastmem,DispBL        ;
  625.     add.l    #blist1,DispBL        ;
  626.  
  627.     move.l    chipmem,RendCh        ;
  628.     add.l    #ch0,RendCh        ;
  629.     move.l    chipmem,DispCh        ;
  630.     add.l    #ch1,DispCh        ;
  631.  
  632.     move.l    chipmem,RendCop        ;
  633.     add.l    #cop0,RendCop        ;
  634.     move.l    chipmem,DispCop        ;
  635.     add.l    #cop1,DispCop        ;
  636.  
  637.     ; Other stuff ---------------------------------------------------------
  638.     
  639.     bsr.w    LoadScores        ; Init Hall of Fame
  640.     bsr.w    SetCIAInt        ; Set music player interrupt
  641.     move.l    #IFlg_Text,Intro_Flags    ; Start intro at part I
  642.         
  643.     ; Finished ------------------------------------------------------------
  644.     
  645.     rts
  646.  
  647.  
  648. ; *****************************************************************************
  649. ; DoneMain
  650. ; -----------------------------------------------------------------------------
  651. ; Inputs     : -
  652. ; Output     : -
  653. ; Description: Cleans up the mess.
  654. ; Notes      : -
  655. ; Scratch    : -
  656. ; Author     : -
  657. ; History    : -
  658. ; *****************************************************************************
  659.  
  660. DoneMain
  661.     bsr.w    ResetCIAInt        ; Remove music player interrupt
  662.     rts
  663.  
  664.  
  665. ; *****************************************************************************
  666. ; Intro 
  667. ; -----------------------------------------------------------------------------
  668. ; Inputs     : -
  669. ; Output     : -
  670. ; Description: -
  671. ; Notes      : -
  672. ; Scratch    : All
  673. ; Author     : -
  674. ; History    : -
  675. ; *****************************************************************************
  676.  
  677.     ALIGNLONG
  678.     
  679. Intro
  680.     ; Everything off ------------------------------------------------------
  681.  
  682.     move.w    #$7fff,$dff09a            ; Kill interrupts
  683.     move.w    #$7fff,$dff09c            ;
  684.     move.w    #$7fff,$dff096            ; Kill DMA
  685.  
  686.     ; Set palette ---------------------------------------------------------
  687.     
  688.     move.l    #IntroCopCol,a0            ; Set palette
  689.     move.l    #IntroPal,a1            ;
  690.     bsr.w    SetPal24            ;
  691.     move.l    #IntroCop,$dff080        ; Display copperlist
  692.  
  693.     ; Init planes 7 and 8 -------------------------------------------------
  694.  
  695.     lea    IntroCopBpl,a2            ; a2=Position in copperlist
  696.     add.l    #8*6,a2                ;
  697.     move.l    chipmem,d0            ; Write last two bitplanes
  698.     add.l    #scr0,d0            ; Plane 7
  699.     swap    d0                ;
  700.     move.w    d0,2(a2)            ; 
  701.     swap    d0                ;
  702.     move.w    d0,6(a2)            ;
  703.     addq.l    #8,a2                ;
  704.     add.l    #20480,d0            ; Plane 8
  705.     swap    d0                ;
  706.     move.w    d0,2(a2)            ;
  707.     swap    d0                ;
  708.     move.w    d0,6(a2)             ;
  709.  
  710.     bsr.w    ClearPlanes            ; Clear planes 7 and 8
  711.     
  712.     ; Init stuff ----------------------------------------------------------
  713.  
  714.     move.b    #FALSE,Intro_WarpIn        ;
  715.     move.b    #FALSE,Intro_WarpOut        ;    
  716.     move.w    #0,Intro_WarpCount        ; Reset warp-counter
  717.     move.l    #-1,Intro_Timer            ; Reset timer
  718.     
  719.     move.w    Plyr_Level,Intro_Level        ; Intro_Level = Plyr_Level
  720.  
  721.     move.w    #$e000,$dff09a            ; Enable CIA interrupts
  722.     move.w    #$83af,$dff096            ; Enable BPL+COP+AUDx DMA
  723.  
  724.     ; Start music ---------------------------------------------------------
  725.     
  726.     move.l    #IntroMusic,mt_data        ; 
  727.     bsr.w    mt_init                ;
  728.     st    mt_Enable            ;
  729.     
  730. IntroLoop
  731.     ; Sync display --------------------------------------------------------
  732.  
  733.     bsr.w    WaitVBL                ; Wait for vertical blank
  734.     add.l    #1,Intro_Timer            ; Update timer
  735.  
  736.     ; WarpIn --------------------------------------------------------------
  737.  
  738. .WrpIn    cmp.b    #TRUE,Intro_WarpIn        ; WarpIn two last bitplanes
  739.     bne.b    .WrpOut                ; 
  740.  
  741.     add.w    #1,Intro_WarpCount        ; Intro_WarpCount += 1
  742.     bsr.w    Warp                ; Do warp effect
  743.     cmp.w    #31,Intro_WarpCount        ; IF Intro_WarpCount >= 31
  744.     blt.b    IntroText            ;   Intro_WarpIn=FALSE
  745.     move.b    #FALSE,Intro_WarpIn        ; ENDIF
  746.  
  747.     ; WarpOut -------------------------------------------------------------
  748.  
  749. .WrpOut    cmp.b    #TRUE,Intro_WarpOut        ; WarpOut two last bitplanes
  750.     bne.b    IntroText            ;
  751.  
  752.     sub.w    #1,Intro_WarpCount        ; Intro_WarpCount -= 1
  753.     bsr.w    Warp                ; Do warp effect
  754.     cmp.w    #0,Intro_WarpCount        ; IF Intro_WarpCount <= 0
  755.     bgt.b    IntroText            ;   Intro_WarpOut=FALSE
  756.     move.b    #FALSE,Intro_WarpOut        ; ENDIF
  757.  
  758.     ; Part I: Write text ==================================================
  759.  
  760. IntroText    
  761.     cmp.l    #IFlg_Text,Intro_Flags        ;
  762.     bne.w    IntroAskName            ;
  763.     
  764.     cmp.l    #0,Intro_Timer            ; CREDITS
  765.     bne.w    .1                ;
  766.     bsr.w    ClearPlanes            ;
  767.     move.b    #TRUE,Intro_WarpIn        ;
  768.     PPUTSTR #itxt_1,#40*280+20        ;
  769.     PPUTSTR    #itxt_0,#40*296+20        ;
  770.     PPUTSTR #itxt_1,#40*312+20        ;
  771.     PPUTSTR #itxt_2,#40*360+20        ;
  772.     PPUTSTR    #itxt_3,#40*376+20        ;
  773.     PPUTSTR    #itxt_4,#40*392+20        ;
  774.     PPUTSTR #itxt_5,#40*424+20        ;
  775.     PPUTSTR #itxt_6,#40*440+20        ;
  776.     PPUTSTR #itxt_7,#40*456+20        ;
  777.     PPUTSTR #itxt_8,#40*472+20        ;
  778.     
  779. .1    cmp.l    #150,Intro_Timer        ;
  780.     bne.b    .2                ;
  781.     move.b    #TRUE,Intro_WarpOut        ;
  782.     
  783. .2    cmp.l    #200,Intro_Timer        ; MORE CREDITS
  784.     bne.w    .3                ;
  785.     bsr.w    ClearPlanes            ;
  786.     move.b    #TRUE,Intro_WarpIn        ;
  787.     PPUTSTR    #itxt_19,#40*296+20        ;
  788.     PPUTSTR    #itxt_10,#40*288+20        ;
  789.     PPUTSTR    #itxt_11,#40*312+20        ;
  790.     PPUTSTR    #itxt_19,#40*368+20        ;
  791.     PPUTSTR    #itxt_12,#40*360+20        ;
  792.     PPUTSTR    #itxt_13,#40*384+20        ;
  793.     PPUTSTR    #itxt_19,#40*440+20        ;
  794.     PPUTSTR    #itxt_14,#40*432+20        ;
  795.     PPUTSTR    #itxt_15,#40*456+20        ;
  796.  
  797. .3    cmp.l    #350,Intro_Timer        ;
  798.     bne.b    .4                ;
  799.     move.b    #TRUE,Intro_WarpOut        ;
  800.         
  801. .4    cmp.l    #400,Intro_Timer        ; HALL OF FAME
  802.     bne.w    .5                ;
  803.     bsr.w    ClearPlanes            ;
  804.     move.b    #TRUE,Intro_WarpIn        ;
  805.     PPUTSTR    #itxt_20,#40*272+20        ; }
  806.     PPUTSTR    #itxt_21,#40*288+20        ; }- Write Hall of Fame header
  807.     PPUTSTR    #itxt_22,#40*304+20        ; }
  808.     lea    BestTimes,a0            ; a0 = Pointer to BestTimes
  809.     lea    BestNames,a1            ; a1 = Pointer to BestNames
  810.     move.w    #NumLevel-1,d7            ; d7 = Loop counter
  811.     move.l    #0,d1                ; d1 = Level counter
  812.     move.l    #40*336+21,d2            ; d2 = Screen position
  813. .4loop    move.l    d1,d0                ; d0 = levelnr
  814.     addq.l    #1,d0                ; Adjust levelnr
  815.     PPUTNUM    d0,d2                ; Write track number
  816.     move.l    d1,d0                ; d0 = levelnr
  817.     mulu.w    #12,d0                ;
  818.     move.l    a1,a2                ; a2 = Pointer to BestNames
  819.     add.l    d0,a2                ; a2 += levelnr*12
  820.     move.l    d2,a4                ;
  821.     add.l    #2,a4                ;
  822.     PPUTSTR    a2,a4                ; Write BestName
  823.     move.l    d1,d0                ; d0 = levelnr
  824.     move.l    (a0,d0.w*4),d5            ; d5 = Time
  825.     move.l    d2,a4                ;
  826.     add.l    #14,a4                ;
  827.     bsr.w    PWriteTime            ; Write BestTime
  828.     addq.l    #1,d1                ; Increase level counter
  829.     add.l    #40*16,d2            ; Increase screen position
  830.     dbf    d7,.4loop            ;
  831.  
  832. .5    cmp.l    #550,Intro_Timer        ;
  833.     bne.b    .0                ;
  834.     move.b    #TRUE,Intro_WarpOut        ;
  835.  
  836. .0    cmp.l    #600,Intro_Timer        ;
  837.     bne.b    .input                ;
  838.     move.l    #-1,Intro_Timer            ; Reset intro timer
  839.  
  840.     ; Get input -----------------------------------------------------------
  841. .input
  842.     bsr.w    GetJoy1                ; IF Joy1Fire
  843.     tst.b    Joy1Fire            ;
  844.     beq.b    .keys                ; 
  845.     move.l    #IFlg_AskName,Intro_Flags    ;   Intro_Flags=IFlg_AskName 
  846.     move.b    #FALSE,Intro_WarpIn        ;   Stop warp-in
  847.     move.b    #TRUE,Intro_WarpOut        ;   Start warp-out
  848.     move.l    #-1,Intro_Timer            ;   Reset timer
  849.     bra.w    IntroQuit            ; ENDIF
  850. .keys
  851.     bsr.w    GetKey                ; IF ESC-key pressed
  852.     cmp.b    #KEY_NEW,KeyState        ;
  853.     bne.w    IntroQuit            ;
  854.     cmp.b    #KEY_ESC,KeyRaw            ;
  855.      bne.w    IntroQuit            ;
  856.     move.l    #IFlg_QuitToWB,Intro_Flags    ;   Intro_Flags=IFlg_QuitToWB
  857.     bra.w    IntroQuit            ; ENDIF
  858.  
  859.     ; Part II: Ask user name ==============================================
  860.  
  861. IntroAskName
  862.     cmp.l    #IFlg_AskName,Intro_Flags    ; 
  863.     bne.w    IntroTrackSel            ;
  864.     
  865.     cmp.l    #40,Intro_Timer            ; Wait for warp-out finished
  866.     blt.w    IntroQuit            ;
  867.     
  868.     cmp.l    #40,Intro_Timer            ;
  869.     bne.w    .0                ;
  870.     bsr.w    ClearPlanes            ; Erase planes 7 & 8
  871.     PPUTSTR #ian_0,#40*356+20        ;
  872.     PPUTSTR #ian_1,#40*372+20        ;
  873.     PPUTSTR #ian_2,#40*388+20        ;
  874.     PPUTSTR #ian_3,#40*404+20        ;
  875.     move.b    #TRUE,Intro_WarpIn        ; Start warp-in
  876.  
  877. .0    cmp.l    #80,Intro_Timer            ; Wait for warp-in finished
  878.     blt.w    IntroQuit            ;
  879.     bsr.w    GetStr                ; Read player name
  880.         
  881.     move.l    #IFlg_TrackSel,Intro_Flags    ; Go to part III
  882.     move.b    #FALSE,Intro_WarpIn        ; Stop warp-in 
  883.     move.b    #TRUE,Intro_WarpOut        ; Start warp-out
  884.     move.l    #-1,Intro_Timer            ; Reset timer
  885.     bra.w    IntroQuit            ; 
  886.  
  887.     ; Part III : Track Select =============================================
  888.     
  889. IntroTrackSel
  890.     cmp.l    #IFlg_TrackSel,Intro_Flags    ;
  891.     bne.w    IntroQuit            ;
  892.  
  893.     cmp.l    #40,Intro_Timer            ; Wait for warp-out finished
  894.     blt.w    IntroQuit            ;
  895.     
  896.     cmp.l    #40,Intro_Timer            ; WRITE TRACK INFO
  897.     bne.w    .input                ;
  898.     move.b    #TRUE,Intro_WarpIn        ; Start warp-in
  899.     bsr.w    ClearPlanes            ; Erase planes 7 & 8
  900.     PPUTSTR #its_0,#40*264+20        ; }
  901.     PPUTSTR    #its_1,#40*280+20        ; }- Header
  902.     PPUTSTR    #its_2,#40*296+20        ; }
  903.     PPUTSTR    #its_3,#40*320+20        ; TRACK
  904.     PPUTSTR    #its_4,#40*336+20        ; TIME
  905.     PPUTSTR    #its_5,#40*352+20        ; SHIPS
  906.     PPUTSTR    #its_6,#40*384+20        ; BEST 
  907.     PPUTSTR    #its_7,#40*424+20        ; }
  908.     PPUTSTR    #its_8,#40*440+20        ; }
  909.     PPUTSTR    #its_9,#40*456+20        ; }- Joystick info
  910.     PPUTSTR    #its_10,#40*472+20        ; }
  911.     PPUTSTR    #its_11,#40*488+20        ; }
  912.     moveq    #0,d0                ;
  913.     move.w    Intro_Level,d0            ; d0 = Current selected levelnr
  914.     move.l    d0,d2                ; 
  915.     move.l    d0,d1                ; 
  916.     addq.w    #1,d1                ; Adjust levelnr
  917.     PPUTNUM    d1,#40*320+34            ; Write Intro_Level
  918.     mulu.w    #Level_sizeof,d0        ;
  919.     lea    Level,a0            ;
  920.     move.w    Level_Ships(a0,d0.w),d1        ;
  921.     PPUTNUM    d1,#40*352+34            ; Write Level_Ships
  922.     move.l    Level_Time(a0,d0.w),d5        ;
  923.     move.l    #40*336+31,a4            ;
  924.     bsr.w    PWriteTime            ; Write Level_Time
  925.     lea    BestTimes,a0            ;
  926.     move.l    (a0,d2.w*4),d5            ;
  927.     move.l    #40*400+34,a4            ;
  928.     bsr.w    PWriteTime            ; Write BestTime
  929.     lea    BestNames,a1            ;
  930.     mulu.w    #12,d2                ;
  931.     add.l    d2,a1                ;
  932.     PPUTSTR    a1,#40*400+22            ; Write BestName
  933.  
  934.     ; Get input -----------------------------------------------------------
  935. .input
  936.     cmp.b    #FALSE,Intro_WarpOut        ; IF Warping-in 
  937.     bne.w    .keys                ; THEN skip joystick part
  938.     cmp.b    #FALSE,Intro_WarpIn        ; IF Warping-out
  939.     bne.w    .keys                ; THEN skip joystick part
  940.  
  941.     bsr.w    GetJoy1                ; IF Joy1Fire
  942.     tst.b    Joy1Fire            ;
  943.     beq.b    .nofire                ;
  944.     move.l    #IFlg_Quit,Intro_Flags        ;   Play selected level !
  945.     bra.w    IntroQuit            ; ENDIF
  946.  
  947. .nofire    tst.b    Joy1Left            ; IF Joy1Left
  948.     beq.b    .noleft                ; 
  949.     move.l    #-1,Intro_Timer            ;   Warp
  950.     move.b    #TRUE,Intro_WarpOut        ;
  951.     sub.w    #1,Intro_Level            ;   Intro_Level -= 1
  952.     bpl.w    IntroQuit            ;   IF Intro_Level < 0
  953.     move.w    #0,Intro_Level            ;   THEN Intro_Level = 0
  954.     move.l    #$7fff,Intro_Timer        ;
  955.     move.b    #FALSE,Intro_WarpOut        ;   Don't warp
  956.     bra.w    IntroQuit            ; ENDIF
  957.     
  958. .noleft    tst.b    Joy1Right            ; IF Joy1Right
  959.     beq.b    .keys                ;
  960.     move.l    #-1,Intro_Timer            ;   Warp
  961.     move.b    #TRUE,Intro_WarpOut        ;
  962.     add.w    #1,Intro_Level            ;   Intro_Level += 1
  963.     cmp.w    #NumLevel,Intro_Level        ;   IF Intro_Level = NumLevel
  964.     blt.b    IntroQuit            ;   THEN Intro_Level=NumLevel-1
  965.     sub.w    #1,Intro_Level            ;  
  966.     move.l    #$7fff,Intro_Timer        ;   Don't warp
  967.     move.b    #FALSE,Intro_WarpOut        ;
  968.     bra.b    IntroQuit            ; ENDIF
  969. .keys
  970.     bsr.w    GetKey                ; IF ESC-key pressed
  971.     cmp.b    #KEY_NEW,KeyState        ;
  972.     bne.b    IntroQuit            ;
  973.     cmp.b    #KEY_ESC,KeyRaw            ;
  974.      bne.b    IntroQuit            ;
  975.     move.l    #IFlg_Text,Intro_Flags        ;   Back to part I
  976.     move.b    #FALSE,Intro_WarpIn        ;   Stop warp-in 
  977.     move.b    #TRUE,Intro_WarpOut        ;   Start warp-out
  978.     move.l    #550,Intro_Timer        ;   Reset timer
  979.     bra.w    IntroQuit            ; ENDIF
  980.  
  981.     ; Quit ? ==============================================================
  982.  
  983. IntroQuit
  984.     IFNE     DEBUG                ;
  985.        btst     #2,$dff016            ; Check right mousebutton 
  986.     bne.b    .z                ;
  987.     move.l    #IFlg_QuitToWB,Intro_Flags    ;
  988. .z    ENDC                    ;
  989.  
  990.     cmp.l    #IFlg_Quit,Intro_Flags        ; Quit intro-loop ?
  991.     blt.w    IntroLoop            ;
  992.  
  993.     ; Finished ------------------------------------------------------------
  994.  
  995.     move.w    Intro_Level,Plyr_Level        ; Play this level
  996.  
  997.     bsr.w    mt_end                ; Stop music
  998.     
  999.     move.w    #$7fff,$dff09a            ; Kill interrupts
  1000.     move.w    #$7fff,$dff09c            ;
  1001.     move.w    #$7fff,$dff096            ; Kill DMA
  1002.     rts
  1003.  
  1004.  
  1005. ; *****************************************************************************
  1006. ; ClearPlanes
  1007. ; -----------------------------------------------------------------------------
  1008. ; Inputs     : -
  1009. ; Output     : -
  1010. ; Description: Erase intro screen plane 7 and 8.
  1011. ; Notes      : -
  1012. ; Scratch    : -
  1013. ; Author     : -
  1014. ; History    : -
  1015. ; *****************************************************************************
  1016.  
  1017. ClearPlanes                    ;
  1018.     move.l    chipmem,a0            ; Use scr0 buffer for last two
  1019.     add.l    #scr0,a0            ; bitplanes.
  1020.     move.w    #320*128/4-1,d7            ; 
  1021.     moveq    #0,d0                ;
  1022. .clr1    move.l    d0,(a0)+            ;
  1023.     dbf    d7,.clr1            ;
  1024.     rts
  1025.  
  1026.  
  1027. ; *****************************************************************************
  1028. ; Warp
  1029. ; -----------------------------------------------------------------------------
  1030. ; Inputs     : -
  1031. ; Output     : -
  1032. ; Description: Do intro warp effect.
  1033. ; Notes      : -
  1034. ; Scratch    : All
  1035. ; Author     : -
  1036. ; History    : -
  1037. ; *****************************************************************************
  1038.  
  1039. Warp
  1040.     move.w    Intro_WarpCount,d1    ; d1 = Index in IntroWarp table
  1041.     lea    IntroWarp,a0        ; a0 = Pointer to IntroWarp table
  1042.     lea    IntroCopBpl+6*8,a2    ; a2 = Position in copperlist header
  1043.     move.l    chipmem,d0        ; 
  1044.     add.l    #scr0,d0        ; Plane 7
  1045.     add.l    (a0,d1.w*4),d0        ; Add warp offset
  1046.     swap    d0            ;
  1047.     move.w    d0,2(a2)        ; 
  1048.     swap    d0            ;
  1049.     move.w    d0,6(a2)        ;
  1050.     addq.l    #8,a2            ;
  1051.     add.l    #20480,d0        ; Plane 8
  1052.     swap    d0            ;
  1053.     move.w    d0,2(a2)        ;
  1054.     swap    d0            ;
  1055.     move.w    d0,6(a2)         ;
  1056.     rts
  1057.  
  1058.  
  1059. ; *****************************************************************************
  1060. ; InitLevel 
  1061. ; -----------------------------------------------------------------------------
  1062. ; Inputs     : -
  1063. ; Output     : -
  1064. ; Description: -
  1065. ; Notes      : -
  1066. ; Scratch    : -
  1067. ; Author     : -
  1068. ; History    : -
  1069. ; *****************************************************************************
  1070.  
  1071. InitLevel
  1072.     ; Clear chunky buffers and screens ------------------------------------
  1073.  
  1074.     move.l    chipmem,a0            ; Note: chunky buffers must be
  1075.     add.l    #ch0,a0                ; allocated after each other
  1076.     move.w    #2*160*128/4-1,d7        ; in memory.
  1077. .clr0    move.l    #0,(a0)+            ;
  1078.     dbf    d7,.clr0            ;
  1079.  
  1080.     move.l    chipmem,a0            ; Note: screen buffers must be
  1081.     add.l    #scr0,a0            ; allocated after each other
  1082.     move.w    #2*320*128/4-1,d7        ; in memory.
  1083. .clr1    move.l    #0,(a0)+            ;
  1084.     dbf    d7,.clr1            ;
  1085.  
  1086.     ; Set palette ---------------------------------------------------------
  1087.  
  1088.     move.l    RendCop,a0            ; Set colours to black
  1089.     add.l    #CopCol-Cop,a0            ;
  1090.     move.l    #GamePal,a1            ;    
  1091.     bsr.w    SetPal24            ;
  1092.     move.l    DispCop,a0            ;
  1093.     add.l    #CopCol-Cop,a0            ;
  1094.     move.l    #GamePal,a1            ;
  1095.     bsr.w    SetPal24            ;
  1096.     
  1097.     ; DMA & Interrupts ----------------------------------------------------
  1098.     
  1099.     move.w    #$7fff,$dff09a            ; Kill interrupts
  1100.     move.w    #$7fff,$dff09c            ;
  1101.     move.w    #$7fff,$dff096            ; Kill DMA
  1102.  
  1103.        move.l     _vbr,a0             ;
  1104.      move.l     #int3,$6c(a0)            ; INT3 vector
  1105.  
  1106.     move.l    DispCop,$dff080            ; Display copperlist
  1107.     
  1108.     move.w    #$e060,$dff09a            ; Enable BLIT+VERTB+CIA ints
  1109.        move.w     #$83cf,$dff096            ; Enable BPL+COP+BLT+AUD DMA
  1110.  
  1111.     ; Make BlitterScreen --------------------------------------------------
  1112.     
  1113.        move.l     chipmem,a0             ;
  1114.      add.l     #ch0,a0                  ; Chunky buffer
  1115.        move.l     chipmem,a1             ;
  1116.      add.l     #scr0,a1                 ; Planar screen
  1117.        move.l     chipmem,a2             ;
  1118.      add.l     #buf2,a2                 ; Pass buffer
  1119.        move.l     chipmem,a3             ;
  1120.      add.l     #sblbuf,a3               ; Scramble buffer
  1121.        move.l     fastmem,a6             ;
  1122.      add.l     #blist0,a6                ; Blitterlist buffer
  1123.  
  1124.        move.l     #160*128,d0                ; Number of chunky pixels
  1125.       move.l     #320*128/8,d1           ; Bytes between the bitplanes
  1126.  
  1127.       movem.l d0-d7/a0-a6,-(sp)        ;
  1128.        jsr     c2bs                         ; Make blitterlist 0
  1129.       movem.l (sp)+,d0-d7/a0-a6        ;
  1130.  
  1131.       move.l     chipmem,a0             ;
  1132.       add.l     #ch1,a0                  ; Chunky buffer
  1133.        move.l     chipmem,a1             ;
  1134.      add.l     #scr1,a1                 ; Planar screen
  1135.        move.l     chipmem,a2             ;
  1136.      add.l     #buf2,a2                 ; Pass buffer
  1137.        move.l     chipmem,a3             ;
  1138.      add.l     #sblbuf,a3               ; Scramble buffer
  1139.        move.l     fastmem,a6             ;
  1140.      add.l     #blist1,a6                ; Blitterlist buffer
  1141.  
  1142.        move.l     #160*128,d0                ; Number of chunky pixels
  1143.       move.l     #320*128/8,d1           ; Bytes between the bitplanes
  1144.  
  1145.       movem.l d0-d7/a0-a6,-(sp)        ;
  1146.        jsr     c2bs                         ; Make blitterlist 1 
  1147.       movem.l (sp)+,d0-d7/a0-a6        ;
  1148.  
  1149.     ; Start the music -----------------------------------------------------
  1150.  
  1151.     move.l    #GameMusic,mt_data        ;
  1152.     bsr.w    mt_init                ;
  1153.     st    mt_Enable            ;
  1154.  
  1155.     ; Init variables ------------------------------------------------------
  1156.  
  1157.     move.w    Plyr_Level,d1            ; d1 = Plyr_Level
  1158.     move.l    #Level,a0            ; Calculate Game_LevelPtr
  1159.     move.w    d1,d0                ;
  1160.     mulu    #Level_sizeof,d0        ;
  1161.     add.l    d0,a0                ;
  1162.     move.l    a0,Game_LevelPtr        ; 
  1163.     move.l    #Wall_Z,a0            ; Calculate Game_WallZ
  1164.     move.w    d1,d0                ;
  1165.     mulu    #MaxWall*4,d0            ;
  1166.     add.l    d0,a0                ;
  1167.     move.l    a0,Game_WallZ            ; 
  1168.     move.l    #Wall_Type,a0            ; Calculate Game_WallType
  1169.     move.w    d1,d0                ;
  1170.     mulu    #MaxWall*2,d0            ;
  1171.     add.l    d0,a0                ;
  1172.     move.l    a0,Game_WallType        ;
  1173.  
  1174.     move.w    #Plyr_XInit,Plyr_X        ; Init player position
  1175.     move.w    #Plyr_YInit,Plyr_Y        ;
  1176.     move.w    #0,Plyr_XSpd            ; Init player speed
  1177.     move.w    #0,Plyr_YSpd            ;
  1178.     move.w    #0,Plyr_Scroll            ;
  1179.     move.l    #0,Plyr_Z            ;
  1180.     move.w    #28*256,Plyr_ZSpd        ;
  1181.     
  1182.     move.w    #0,Plyr_Frame            ; Current frame number
  1183.     move.w    #7,Plyr_EngineCnt        ; Current engine colour
  1184.     move.w    #TRUE,Plyr_EngineOn        ; Engine is on...
  1185.  
  1186.     move.l    #Flg_LevelInit,Game_Flags    ; Init flags
  1187.     move.w    #0,Game_FirstWall        ; Init walls
  1188.     move.w    #0,Game_LastWall        ;
  1189.  
  1190.     lea    Plyr_Name,a0            ; IF Plyr_Name="MOTHERGOOSE"
  1191.     move.l    (a0)+,d0            ;
  1192.     cmp.l    #"MOTH",d0            ;
  1193.     bne.b    .nocht                ;
  1194.     move.l    (a0)+,d0            ;
  1195.     cmp.l    #"ERGO",d0            ;
  1196.     bne.b    .nocht                ;
  1197.     move.l    (a0)+,d0            ;
  1198.     cmp.l    #$4f534500,d0            ;
  1199.     bne.b    .nocht                ;
  1200.     move.w    #9,Plyr_Ships            ;   Plyr_Ships=9
  1201.     move.l    #29950,Plyr_Time        ;   Plyr_Time=9:59
  1202.     move.b    #TRUE,Plyr_Cheat        ;   Plyr_Cheat=TRUE
  1203.     bra.b    .Done                ; ELSE
  1204. .nocht    move.l    Game_LevelPtr,a0        ;   
  1205.     move.w    Level_Ships(a0),Plyr_Ships    ;   Plyr_Ships=Level_Ships
  1206.     move.l    Level_Time(a0),Plyr_Time    ;   Plyr_Time=Level_Time
  1207.     move.b    #FALSE,Plyr_Cheat        ;   Plyr_Cheat=FALSE
  1208.  
  1209.     ; Finished ------------------------------------------------------------
  1210. .Done    
  1211.     rts
  1212.     
  1213.  
  1214. ; *****************************************************************************
  1215. ; GameLoop
  1216. ; -----------------------------------------------------------------------------
  1217. ; Inputs     : -
  1218. ; Output     : -
  1219. ; Description: -
  1220. ; Notes      : -
  1221. ; Scratch    : -
  1222. ; Author     : -
  1223. ; History    : -
  1224. ; *****************************************************************************
  1225.  
  1226.     ALIGNLONG
  1227.     
  1228. GameLoop
  1229.         ; Sync display --------------------------------------------------------
  1230.  
  1231. .busy    tst.w   bltbsy                ; Wait for C2P finished
  1232.      bne.b     .busy                ; (bltbsy=0)
  1233.  
  1234.     bsr.w    WaitVBL                ; Wait for vertical blank
  1235.  
  1236.     move.l    RealTimeCnt,RealTime        ; Store realtime counter
  1237.     move.l    #0,RealTimeCnt            ; Reset realtime counter
  1238.  
  1239.     move.l    DispCop,$dff080            ; Display copperlist
  1240.  
  1241.     move.l    RendBL,d0            ; Do double buffering
  1242.     move.l    DispBL,RendBL            ;
  1243.     move.l    d0,DispBL            ;
  1244.     move.l    RendCh,d1            ;
  1245.     move.l    DispCh,RendCh            ;
  1246.     move.l    d1,DispCh            ;
  1247.     move.l    RendCop,d2            ;
  1248.     move.l    DispCop,RendCop            ;
  1249.     move.l    d2,DispCop            ;
  1250.  
  1251.         ; Start C2P -----------------------------------------------------------
  1252.  
  1253.     move.l    DispBL,bltpc            ; Blitterlist
  1254.        move.w     #1,bltbsy                ; Important!
  1255.        move.w     #$8040,$dff09c           ; Request blitter interrupt
  1256.  
  1257.     ; Render stuff --------------------------------------------------------
  1258.  
  1259.     bsr.w    DrawTunnel            ;
  1260.     bsr.w    DoWalls                ;
  1261.     bsr.w    DoPlayer            ;
  1262.     bsr.b    DoStatus            ;
  1263.  
  1264.     IFNE    SHOW                ;
  1265.     move.w    #$f00,$dff182            ; Show rastertiming
  1266.     ENDC                    ;
  1267.  
  1268.     ; Quit ? --------------------------------------------------------------
  1269.  
  1270.     cmp.l    #Flg_Quit,Game_Flags        ; Quit gameloop ?
  1271.        bne.w     GameLoop            ;
  1272.  
  1273. .c2pend    tst.w     bltbsy                 ; Make sure C2P is finished
  1274.      bne.b     .c2pend                ; before we continue
  1275.  
  1276.     ; Finished ------------------------------------------------------------
  1277. .Done
  1278.     bsr.w    mt_end                ; Stop music
  1279.     move.l    #IFlg_TrackSel,Intro_Flags    ; Restart intro at Track Select
  1280.        rts
  1281.  
  1282.  
  1283. ; *****************************************************************************
  1284. ; DoStatus
  1285. ; -----------------------------------------------------------------------------
  1286. ; Inputs     : -
  1287. ; Output     : -
  1288. ; Description: Draws status stuff in chunky buffer.
  1289. ; Notes      : -
  1290. ; Scratch    : -
  1291. ; Author     : -
  1292. ; History    : -
  1293. ; *****************************************************************************
  1294.  
  1295. DoStatus
  1296.     cmp.l    #Flg_LevelInit,Game_Flags    ; IF Game_Flags=Flg_LevelInit
  1297.     beq.b    .Done                ; THEN don't draw status
  1298.     cmp.l    #Flg_GetReady,Game_Flags    ; IF Game_Flags=Flg_GetReady
  1299.     beq.b    .Done                ; THEN don't draw status
  1300.     cmp.l    #Flg_LevelDone,Game_Flags    ; IF Game_Flags=Flg_LevelDone
  1301.     beq.b    .Done                ; THEN don't draw status
  1302.     
  1303.     ; Number of ships -----------------------------------------------------
  1304.  
  1305.     move.w    Plyr_Ships,d1            ;
  1306.     CPUTNUM    d1,#160+160-10            ;
  1307.  
  1308.     ; Time left -----------------------------------------------------------
  1309.  
  1310.     move.l    #160,a4                ;
  1311.     move.l    Plyr_Time,d5            ;
  1312.     bsr.w    CWriteTime            ;
  1313.     
  1314.     ; Finished ------------------------------------------------------------
  1315. .Done
  1316.     rts
  1317.     
  1318.     
  1319. ; *****************************************************************************
  1320. ; DoPlayer
  1321. ; -----------------------------------------------------------------------------
  1322. ; Inputs     : -
  1323. ; Output     : -
  1324. ; Description: Does player things.
  1325. ; Notes      : -
  1326. ; Scratch    : None
  1327. ; Author     : -
  1328. ; History    : -
  1329. ; *****************************************************************************
  1330.  
  1331.     ALIGNLONG
  1332.     
  1333. DoPlayer
  1334.     movem.l    d0-d7/a0-a6,-(sp)        ; Save regs
  1335.     
  1336.     ; Normal mode ---------------------------------------------------------
  1337.  
  1338.     cmp.l    #Flg_Normal,Game_Flags        ; Normal mode ?
  1339.     beq.w    .Player                ; 
  1340.  
  1341.     ; LevelInit -----------------------------------------------------------
  1342.  
  1343.     cmp.l    #Flg_LevelInit,Game_Flags    ; Level starts
  1344.     bne.b    .getrdy                ;
  1345.  
  1346.     sub.w    #ZAccel,Plyr_ZSpd        ; Plyr_ZSpd -= ZAccel
  1347.     cmp.w    #0,Plyr_ZSpd            ; IF Plyr_ZSpd < 0
  1348.     bge.w    .Keys                ;   
  1349.     move.w    #0,Plyr_ZSpd            ;   Plyr_ZSpd = 0
  1350.     move.l    #Flg_GetReady,Game_Flags    ;   Game_Flags=Flg_GetReady
  1351.     move.w    #FALSE,Plyr_EngineOn        ;   Stop Engine
  1352.     bra.w    .Keys                ; ENDIF
  1353.  
  1354.     ; GetReady ------------------------------------------------------------
  1355.  
  1356. .getrdy    cmp.l    #Flg_GetReady,Game_Flags    ; Waiting until player ready
  1357.     bne.w    .nwship                ;
  1358.  
  1359. .0    CPUTSTR    txt_track,#40+38*160        ; Write "TRACK"
  1360.     move.w    Plyr_Level,d1            ;
  1361.     add.w    #1,d1                ; +1 !!!
  1362.     CPUTNUM    d1,#112+38*160            ; Write Plyr_Level
  1363.  
  1364.     CPUTSTR    txt_time,#40+48*160        ; Write "TIME"
  1365.     move.l    #88+48*160,a4            ;
  1366.     move.l    Plyr_Time,d5            ;
  1367.     bsr.w    CWriteTime            ;
  1368.  
  1369.     CPUTSTR    txt_ships,#40+58*160        ; Write "SHIPS"
  1370.     move.w    Plyr_Ships,d1            ;
  1371.     CPUTNUM    d1,#112+58*160            ; Write Plyr_Ships
  1372.         
  1373.     tst.l    Toggle                ; IF Toggle-bit set
  1374.     beq.b    .gtrdy2                ;
  1375.     CPUTSTR    txt_press,#40+84*160        ; THEN Write "PRESS"
  1376.     CPUTSTR    txt_fire,#88+84*160        ;      Write "FIRE"
  1377.     
  1378. .gtrdy2    bsr.w    GetJoy1                ;
  1379.     tst.b    Joy1Fire            ; IF Fire-button
  1380.     beq.w    .Keys                ;
  1381.     move.l    #Flg_Normal,Game_Flags        ;   Game_Flags=Flg_Normal
  1382.     bra.w    .Keys                ; ENDIF
  1383.  
  1384.     ; NewShip -------------------------------------------------------------
  1385.  
  1386. .nwship    cmp.l    #Flg_NewShip,Game_Flags        ; Player has been resurrected
  1387.     bne.b    .ldone                ;
  1388.  
  1389.     tst.l    Toggle                ; IF Toggle-bit set
  1390.     beq.b    .nwshp2                ;
  1391.     CPUTSTR    txt_press,#40+84*160        ; THEN Write "PRESS"
  1392.     CPUTSTR txt_fire,#88+84*160        ;      Write "FIRE"
  1393.     
  1394. .nwshp2    bsr.w    GetJoy1                ;
  1395.     tst.b    Joy1Fire            ; IF Fire-button
  1396.     beq.w    .Keys                ;
  1397.     move.l    #Flg_Normal,Game_Flags        ;   Game_Flags=Flg_Normal
  1398.     bra.w    .Keys                ; ENDIF
  1399.  
  1400.     ; LevelDone -----------------------------------------------------------
  1401.     
  1402. .ldone    cmp.l    #Flg_LevelDone,Game_Flags    ; Level is completed
  1403.     bne.w    .coll                ;
  1404.  
  1405.     move.w    #0,Plyr_XSpd            ; No X/Y Speed
  1406.     move.w    #0,Plyr_YSpd            ;
  1407.     move.w    #TRUE,Plyr_EngineOn        ; Activate engine
  1408.     
  1409.     cmp.w    #28*256,Plyr_ZSpd        ; IF Plyr_ZSpd > xxxx
  1410.     blt.b    .lt                ;
  1411.     sub.w    #ZAccel,Plyr_ZSpd        ; THEN Plyr_ZSpd -= ZAccel
  1412.     bra.b    .ldone1                ;
  1413. .lt    add.w    #ZAccel,Plyr_ZSpd        ; ELSE Plyr_ZSpd += ZAccel
  1414.  
  1415. .ldone1    tst.l    Toggle                ; IF Toggle-bit set
  1416.     beq.w    .ldone3                ;
  1417.     CPUTSTR    txt_track,#24+60*160        ; THEN Write "TRACK"
  1418.     CPUTSTR    txt_complete,#72+60*160        ;      Write "COMPLETE"
  1419.  
  1420. .ldone2    move.l    Game_LevelPtr,a1        ; a1 = Pointer to Level array 
  1421.     cmp.b    #TRUE,Plyr_Cheat        ;
  1422.     bne.w    .ld0                ; IF Plyr_Cheat=TRUE
  1423.     move.l    #29950,d1            ; THEN d1 = 9:59
  1424.     bra.b    .ld1                ;
  1425. .ld0    move.l    Level_Time(a1),d1        ; ELSE d1 = Level_Time
  1426. .ld1    sub.l    Plyr_Time,d1            ; d1 = Level_Time - Plyr_Time
  1427.     lea    BestTimes,a2            ; a2 = Pointer to BestTimes
  1428.     move.w    Plyr_Level,d2            ; d2 = Plyr_Level
  1429.     move.l    (a2,d2.w*4),d3            ; d3 = BestTime for Plyr_Level
  1430.     cmp.l    d3,d1                ; IF d1 <= d3
  1431.     bgt.b    .ldone3                ;
  1432.     CPUTSTR    txt_best,#20+40*160        ; THEN Write "BEST" 
  1433.     CPUTSTR    txt_track,#56+40*160        ;      Write "TRACK"
  1434.     CPUTSTR    txt_time,#108+40*160        ;      Write "TIME"
  1435.     move.l    d1,(a2,d2.w*4)            ; Write time in BestTimes
  1436.     lea    BestNames,a2            ; a2 = Pointer to BestNames
  1437.     mulu.w    #12,d2                ; d2 = Offset in BestNames
  1438.     move.w    #12-1,d7            ;
  1439.     lea    Plyr_Name,a3            ; a3 = Pointer to player name
  1440. .lcopy    move.b    (a3)+,(a2,d2.w)            ; Copy character
  1441.     addq.w    #1,d2                ; Update dest. pointer
  1442.     dbf    d7,.lcopy            ;
  1443.  
  1444. .ldone3    cmp.l    #250,FlgTimer            ; IF FlgTimer = 5 secs
  1445.     ble.w    .Keys                ;
  1446.     move.l    #Flg_Quit,Game_Flags        ;   Game_Flags=Flg_Quit
  1447.     bra.w    .Keys                ; ENDIF
  1448.  
  1449.     ; Collision -----------------------------------------------------------
  1450.  
  1451. .coll    cmp.l    #Flg_Collision,Game_Flags    ; Collision with wall
  1452.     bne.w    .outtim                ;
  1453.  
  1454.     move.w    #Plyr_XInit,Plyr_X        ; Restore player stuff
  1455.     move.w    #Plyr_YInit,Plyr_Y        ;
  1456.     move.w    #0,Plyr_XSpd            ;
  1457.     move.w    #0,Plyr_YSpd            ;
  1458.     move.w    #0,Plyr_ZSpd            ;
  1459.     move.w    #0,Plyr_EngineCnt        ;
  1460.     move.w    #FALSE,Plyr_EngineOn        ;
  1461.  
  1462.     cmp.l    #50,FlgTimer            ; IF 0 <= FlgTimer < 50
  1463.     bge.b    .coll1                ;   Explosion handled by VBLint
  1464.     bra.w    .Keys                ; ENDIF
  1465.     
  1466. .coll1    tst.w    Plyr_Ships            ; IF Plyr_Ships = 0
  1467.     bne.b    .coll2                ;
  1468.     move.l    #Flg_RaceOver,Game_Flags    ;   Game_Flags=Flg_RaceOver
  1469.     bra.w    .Keys                ; ENDIF
  1470.  
  1471. .coll2    cmp.l    #100,FlgTimer            ; IF 50 <= FlgTimer < 100
  1472.     bge.b    .coll3                ;
  1473.     move.l    RealTime,d0            ;
  1474.      mulu.w    #10,d0                ;
  1475.     add.l    d0,Plyr_Z            ;   Move forward through tunnel
  1476.     move.l    RealTime,d0            ;   
  1477.      mulu.w    #2560,d0            ;
  1478.     add.w    d0,Plyr_Scroll            ;   until wall has disappeared
  1479.     bra.w    .Keys                ; ENDIF
  1480.         
  1481. .coll3    move.l    #Flg_NewShip,Game_Flags        ; IF FlgTimer = 100
  1482.     bra.w    .Keys                ; THEN Game_Flags=Flg_NewShip
  1483.  
  1484.     ; OutOfTime -----------------------------------------------------------
  1485.  
  1486. .outtim    cmp.l    #Flg_OutOfTime,Game_Flags    ; No time left
  1487.     bne.w    .racovr                ;
  1488.  
  1489.     sub.w    #ZAccel,Plyr_ZSpd        ; Plyr_ZSpd -= ZAccel
  1490.     cmp.w    #0,Plyr_ZSpd            ; IF Plyr_ZSpd < 0
  1491.     bge.b    .outt0                ;   Plyr_ZSpd = 0
  1492.     move.w    #0,Plyr_ZSpd            ; ENDIF
  1493.     move.w    #0,Plyr_XSpd            ;
  1494.     move.w    #0,Plyr_YSpd            ;
  1495.     move.w    #FALSE,Plyr_EngineOn        ; Stop engine
  1496.  
  1497. .outt0    tst.l    Toggle                ; IF Toggle-bit set
  1498.     beq.b    .outt1                ;
  1499.     CPUTSTR    txt_out,#36+60*160        ; THEN Write "OUT"
  1500.     CPUTSTR    txt_of,#68+60*160        ;      Write "OF"
  1501.     CPUTSTR    txt_time,#92+60*160        ;      Write "TIME"
  1502.  
  1503. .outt1    cmp.l    #250,FlgTimer            ; IF FlgTimer > 5 secs
  1504.     ble.w    .Keys                ;
  1505.     move.l    #Flg_Quit,Game_Flags        ;   Game_Flags=Flg_Quit
  1506.     bra.w    .Keys                ; ENDIF
  1507.  
  1508.     ; RaceOver ------------------------------------------------------------
  1509.  
  1510. .racovr    cmp.l    #Flg_RaceOver,Game_Flags    ; Race Over
  1511.     bne.b    .pause                ;
  1512.  
  1513.     tst.l    Toggle                ; IF Toggle-bit set
  1514.     beq.b    .racov1                ;
  1515.     CPUTSTR    txt_race,#44+60*160        ; THEN Write "RACE"
  1516.     CPUTSTR    txt_over,#84+60*160        ;      Write "OVER"
  1517.  
  1518. .racov1    cmp.l    #250,FlgTimer            ; IF FlgTimer > 5 secs
  1519.     ble.w    .Keys                ;
  1520.     move.l    #Flg_Quit,Game_Flags        ;   Game_Flags=Flg_Quit
  1521.     bra.w    .Keys                ; ENDIF
  1522.  
  1523.     ; Pause ---------------------------------------------------------------
  1524.  
  1525. .pause    cmp.l    #Flg_Pause,Game_Flags        ; Game paused
  1526.     bne.b    .EndFlg                ; 
  1527.  
  1528.     tst.l    Toggle                ; IF Toggle-bit set
  1529.     beq.b    .pause1                ;
  1530.     CPUTSTR    txt_pause,#60+60*160        ; THEN Write "PAUSE"
  1531.  
  1532. .pause1    bsr.w    GetKey                ; Read keyboard
  1533.     cmp.b    #KEY_NEW,KeyState        ; IF previous key repeated
  1534.     bne.w    .Done                ; THEN skip everything
  1535.     cmp.b    #KEY_P,KeyRaw            ; 
  1536.     bne.w    .Done                ; IF P was pressed
  1537.     move.l    #Flg_Normal,Game_Flags        ;   Resume game
  1538.     bra.w    .Done                ; ENDIF
  1539.  
  1540. .EndFlg    bra.w    .Keys                ; Unknown flag. Never get here!
  1541.     
  1542.     ; Handle joystick input -----------------------------------------------
  1543.  
  1544. .Player    bsr.w    GetJoy1            ; Read joystick
  1545.  
  1546.     move.l    RealTime,d0        ; 
  1547.     move.l    #ZAccel,d1        ; ZAccel = RealTime * ZAccel
  1548.     mulu.w    d0,d1            ;
  1549.     move.l    #XAccel,d2        ; XAccel = RealTime * XAccel
  1550.     mulu.w    d0,d2            ;
  1551.     move.l    #YAccel,d3        ; YAccel = RealTime * YAccel
  1552.     mulu.w    d0,d3            ;
  1553.  
  1554.     tst.b    Joy1Fire        ; Fire ?
  1555.     beq.b    .nofire            ;
  1556.  
  1557.     move.w    #TRUE,Plyr_EngineOn    ;   Activate engine
  1558.  
  1559.     add.w    d1,Plyr_ZSpd        ;   Plyr_ZSpd += ZAccel
  1560.     cmp.w    #MaxSpd,Plyr_ZSpd    ;   IF Plyr_ZSpd > MaxSpd
  1561.     ble.b    .tstup            ;
  1562.     move.w    #MaxSpd,Plyr_ZSpd    ;     Plyr_ZSpd = MaxSpd
  1563.     bra.b    .tstup            ;   ENDIF
  1564. .nofire
  1565.     move.w    #FALSE,Plyr_EngineOn    ;   Stop engine
  1566.     
  1567.     sub.w    d1,Plyr_ZSpd        ;   Plyr_ZSpd -= ZAccel
  1568.     cmp.w    #MinSpd,Plyr_ZSpd    ;   IF Plyr_ZSpd < MinSpd
  1569.     bge.b    .tstup            ;     Plyr_ZSpd = MinSpd
  1570.     move.w    #MinSpd,Plyr_ZSpd    ;   ENDIF
  1571. .tstup                    ;   
  1572.     tst.b    Joy1Up            ; Up ?
  1573.     beq.b    .noup            ;
  1574.     sub.w    d3,Plyr_YSpd        ;   Plyr_YSpd -= YAccel
  1575.     bra.b    .tstdn            ;
  1576. .noup    tst.w    Plyr_YSpd        ;   IF Plyr_YSpd < 0
  1577.     bpl.b    .tstdn            ;
  1578.     add.w    d3,Plyr_YSpd        ;     Plyr_YSpd += YAccel
  1579.     bmi.b    .tstdn            ;     IF Plyr_YSpd > 0 THEN Plyr_YSpd=0
  1580.     move.w    #0,Plyr_YSpd            ;   ENDIF
  1581. .tstdn                    ;   
  1582.     tst.b    Joy1Down        ; Down ?
  1583.     beq.b    .nodn            ;
  1584.     add.w    d3,Plyr_YSpd        ;   Plyr_YSpd += YAccel
  1585.     bra.b    .tstlt            ;
  1586. .nodn    tst.w    Plyr_YSpd        ;   IF Plyr_YSpd > 0
  1587.     bmi.b    .tstlt            ;
  1588.     sub.w    d3,Plyr_YSpd        ;     Plyr_YSpd -= YAccel
  1589.     bpl.b    .tstlt            ;     IF Plyr_YSpd < 0 THEN Plyr_YSpd=0
  1590.     move.w    #0,Plyr_YSpd            ;   ENDIF    
  1591. .tstlt                    ;   
  1592.     tst.b    Joy1Left        ; Left ?
  1593.     beq.b    .nolt            ;
  1594.     sub.w    d2,Plyr_XSpd        ;   Plyr_XSpd -= XAccel
  1595.     bra.b    .tstrt            ;
  1596. .nolt    tst.w    Plyr_XSpd        ;   IF Plyr_XSpd < 0
  1597.     bpl.b    .tstrt            ;
  1598.     add.w    d2,Plyr_XSpd        ;     Plyr_XSpd += XAccel
  1599.     bmi.b    .tstrt            ;     IF Plyr_XSpd > 0 THEN Plyr_XSpd=0
  1600.     move.w    #0,Plyr_XSpd            ;   ENDIF    
  1601. .tstrt                    ;   
  1602.     tst.b    Joy1Right        ; Right ?
  1603.     beq.b    .nort            ;
  1604.     add.w    d2,Plyr_XSpd        ;   Plyr_XSpd += XAccel
  1605.     bra.b    .Keys            ;
  1606. .nort    tst.w    Plyr_XSpd        ;   IF Plyr_XSpd > 0
  1607.     bmi.b    .Keys            ;
  1608.     sub.w    d2,Plyr_XSpd        ;     Plyr_XSpd -= XAccel
  1609.     bpl.b    .Keys            ;     IF Plyr_XSpd < 0 THEN Plyr_XSpd=0
  1610.     move.w    #0,Plyr_XSpd            ;   ENDIF
  1611.  
  1612.     ; Handle keyboard input -----------------------------------------------
  1613.  
  1614. .Keys    bsr.w    GetKey            ; Read keyboard input
  1615.     cmp.b    #KEY_NEW,KeyState    ; IF previous key repeated
  1616.     bne.b    .move               ; THEN skip this part
  1617.     
  1618.     move.b    KeyRaw,d0        ;
  1619.     cmp.b    #KEY_ESC,d0        ; IF ESC pressed ?
  1620.     bne.b    .P            ;  
  1621.     move.l    #Flg_Quit,Game_Flags    ;   Game_Flags=Flg_Quit
  1622.     bra.w    .Done            ; ENDIF
  1623.  
  1624. .P    cmp.b    #KEY_P,d0        ; IF P pressed ?
  1625.     bne.b    .move            ;   
  1626.     cmp.l    #Flg_Normal,Game_Flags    ;   IF Game_Flags=Flg_Normal
  1627.     bne.b    .move            ;   
  1628.     move.l    #Flg_Pause,Game_Flags    ;   THEN Game_Flags=Flg_Pause
  1629.     bra.w    .Done            ; ENDIF
  1630.  
  1631.     ; Move player ---------------------------------------------------------
  1632.  
  1633. .move    moveq    #0,d0            ; 
  1634.     move.w    Plyr_ZSpd,d0        ; Plyr_Scroll += Plyr_ZSpd
  1635.     add.w    d0,Plyr_Scroll        ;
  1636.     lsr.w    #8,d0            ; Plyr_Z += (Plyr_ZSpd/256)
  1637.     add.l    d0,Plyr_Z        ;
  1638.  
  1639.     move.w    Plyr_XSpd,d0        ; Plyr_X += Plyr_XSpd
  1640.     add.w    d0,Plyr_X        ;
  1641.     move.w    Plyr_YSpd,d0        ; Plyr_Y += Plyr_YSpd
  1642.     add.w    d0,Plyr_Y        ;
  1643.  
  1644.     ; Check for boundaries ------------------------------------------------
  1645.  
  1646.     move.w    Plyr_X,d0        ;
  1647.     cmp.w    #Plyr_XMin,d0        ; IF Plyr_X < Plyr_XMin
  1648.     bge.b    .chkrt            ;
  1649.     move.w    #Plyr_XMin,Plyr_X    ;   Plyr_X = Plyr_XMin
  1650.     move.w    #0,Plyr_XSpd        ;   Plyr_XSpd = 0
  1651.     bra.b    .chkup            ;
  1652. .chkrt    cmp.w    #Plyr_XMax,d0        ; ELSEIF Plyr_X > Plyr_XMax
  1653.     ble.b    .chkup            ;   Plyr_X = Plyr_XMax
  1654.     move.w    #Plyr_XMax,Plyr_X    ;   Plyr_XSpd = 0
  1655.     move.w    #0,Plyr_XSpd        ; ENDIF
  1656. .chkup    move.w    Plyr_Y,d0        ; 
  1657.     cmp.w    #Plyr_YMin,d0        ; IF Plyr_Y < Plyr_YMin
  1658.     bge.b    .chkdn            ;
  1659.     move.w    #Plyr_YMin,Plyr_Y    ;   Plyr_Y = Plyr_YMin
  1660.     move.w    #0,Plyr_YSpd        ;   Plyr_YSpd = 0
  1661.     bra.b    .Time            ;
  1662. .chkdn    cmp.w    #Plyr_YMax,d0        ; ELSEIF Plyr_Y > Plyr_YMax
  1663.     ble.b    .Time            ;   Plyr_Y = Plyr_YMax
  1664.     move.w    #Plyr_YMax,Plyr_Y    ;   Plyr_YSpd = 0
  1665.     move.w    #0,Plyr_YSpd        ; ENDIF
  1666.  
  1667.     ; Check Time ----------------------------------------------------------
  1668.  
  1669. .Time    cmp.l    #Flg_Normal,Game_Flags        ; IF Flg_Normal not set
  1670.     bne.b    .Done                ; THEN skip this part
  1671.     cmp.l    #0,Plyr_Time            ;
  1672.     bgt.b    .Done                ; IF Plyr_Time <= 0
  1673.     move.l    #0,Plyr_Time            ; THEN Plyr_Time=0
  1674.     move.l    #Flg_OutOfTime,Game_Flags    ;      Game_Flags=Flg_OutOfTime
  1675.  
  1676.     ; Finished ------------------------------------------------------------
  1677. .Done
  1678.  
  1679.     IFNE     DEBUG                ;
  1680.        btst     #2,$dff016            ; Check right mousebutton 
  1681.     bne.b    .z                ;
  1682.     move.l    #Flg_Quit,Game_Flags        ;
  1683. .z    ENDC                    ;
  1684.  
  1685.     movem.l    (sp)+,d0-d7/a0-a6        ; Restore regs
  1686.     rts
  1687.  
  1688.  
  1689. ; *****************************************************************************
  1690. ; DrawPlayer
  1691. ; -----------------------------------------------------------------------------
  1692. ; Inputs     : -
  1693. ; Output     : -
  1694. ; Description: Draws player. Draws shadow. Changes engine colour.
  1695. ; Notes      : -
  1696. ; Scratch    : All
  1697. ; Author     : -
  1698. ; History    : -
  1699. ; *****************************************************************************
  1700.  
  1701.     ALIGNLONG
  1702.     
  1703. DrawPlayer
  1704.     cmp.l    #Flg_Collision,Game_Flags    ; IF Flg_Collision
  1705.     beq.w    .Done                ; THEN don't draw player 
  1706.     cmp.l    #Flg_RaceOver,Game_Flags    ; IF Flg_RaceOver
  1707.     beq.w    .Done                ; THEN don't draw player
  1708.  
  1709.     ; Calculate destination pointers --------------------------------------
  1710.     
  1711.     movem.l    d0-d7/a0-a6,-(sp)    ;
  1712.     move.l    RendCh,a1        ; a1 = Pointer for ship
  1713.     moveq    #0,d0            ;
  1714.     moveq    #0,d1            ;
  1715.     move.w    Plyr_Y,d0        ;
  1716.     sub.w    #12,d0            ; Adjust Y-position
  1717.     move.w    d0,d1            ; }
  1718.     lsl.w    #7,d0            ; }_ Y * 160
  1719.     lsl.w    #5,d1            ; }
  1720.     add.w    d1,d0            ; }
  1721.     add.l    d0,a1            ;
  1722.     move.w    Plyr_X,d1        ;
  1723.     sub.w    #21,d1            ; Adjust X-position
  1724.     add.l    d1,a1            ; 
  1725.  
  1726.     move.l    RendCh,a3        ; a3 = Pointer for shadow
  1727.     add.l    d1,a3            ; 
  1728.     add.l    #100*160,a3        ; Y-position
  1729.  
  1730.     ; In what column is player ? ------------------------------------------
  1731.  
  1732.     moveq    #0,d1            ;    
  1733.     move.w    Plyr_X,d1        ; 
  1734.     sub.w    #32-12,d1        ; Adjust X-postion
  1735.     divu.w    #24,d1            ; Col.nr = X-position / Column_width
  1736.     move.w    d1,d0            ;
  1737.     move.w    d1,d4            ; ShadowFrame.nr = Col.nr
  1738.     lsl.w    #2,d0            ; Frame.nr = Col.nr * 5
  1739.     add.w    d1,d0            ; 
  1740.  
  1741.     ; In what row is player ? ---------------------------------------------
  1742.  
  1743.     moveq    #0,d2            ;
  1744.     move.w    Plyr_Y,d2        ;
  1745.     sub.w    #32-8,d2        ; Adjust Y-position
  1746.     lsr.w    #4,d2            ; Row.nr = Y-postion / Row_height
  1747.     add.w    d2,d0            ; Frame.nr += Row.nr
  1748.     move.w    d0,Plyr_Frame        ; Store frame number (for coll. checks)
  1749.  
  1750.     ; Draw shadow ---------------------------------------------------------
  1751.  
  1752.     lea    Shadow_Anim,a2        ;
  1753.     move.l    (a2,d4.w*4),a0        ; Get source pointer
  1754.     
  1755.     move.l    #25-1,d6        ; Height = 25 lines
  1756. .sloop1    move.w    #48-1,d7        ; Width  = 48 columns (actually 42!)
  1757. .sloop2    move.b    (a0)+,d1        ; Read byte
  1758.     beq.b    .sskip            ; IF transparent THEN skip write
  1759.     move.b    d1,(a3)            ; Write byte        
  1760. .sskip    addq.l    #1,a3            ; Go to next pixel
  1761.     dbf    d7,.sloop2        ;
  1762.     add.l    #160-48,a3        ; Go to next row
  1763.     dbf    d6,.sloop1        ;
  1764.  
  1765.     ; Draw ship -----------------------------------------------------------
  1766.  
  1767.     lea    Ship_Anim,a2        ;
  1768.     move.l    (a2,d0.w*4),a0        ; Get source pointer
  1769.  
  1770.     move.l    #25-1,d6        ; Height = 25 lines
  1771. .loop1    move.w    #48-1,d7        ; Width  = 48 columns (actually 42!)
  1772. .loop2    move.b    (a0)+,d0        ; Read byte
  1773.     beq.b    .skip            ; IF transparent THEN skip write
  1774.     move.b    d0,(a1)            ; Write byte        
  1775. .skip    addq.l    #1,a1            ; Go to next pixel
  1776.     dbf    d7,.loop2        ;
  1777.     add.l    #160-48,a1        ; Go to next row
  1778.     dbf    d6,.loop1        ;
  1779.  
  1780.     ; Change engine colour in copperlist ----------------------------------
  1781.  
  1782.     move.w    Plyr_EngineCnt,d0    ; d0 = Offset in colour table
  1783.     cmp.w    #TRUE,Plyr_EngineOn    ; IF Plyr_EngineOn = TRUE
  1784.     bne.b    .false            ;
  1785.     addq.w    #1,d0            ;   Plyr_EngineCnt += 1
  1786.     cmp.w    #7,d0            ;   IF Plyr_EngineCnt > 7
  1787.     ble.b    .store            ;   THEN Plyr_EngineCnt = 7
  1788.     moveq    #7,d0            ;
  1789.     bra.b    .store            ; ELSE
  1790. .false    subq.w    #1,d0            ;   Plyr_EngineCnt -= 1
  1791.     bpl.b    .store            ;   IF Plyr_EngineCnt < 0
  1792.     moveq    #0,d0            ;   THEN Plyr_EngineCnt = 0
  1793. .store    move.w    d0,Plyr_EngineCnt    ; ENDIF    
  1794.  
  1795.      lea    EnginePal,a1        ; a1 = Pointer to colour table
  1796.     move.l    (a1,d0.w*4),d1        ; d1 = Colour (24-Bit HLi)
  1797.  
  1798.     move.l    RendCop,a0        ; a0 = Pointer to copperlist
  1799.     add.l    #CopCol-Cop+394,a0    ;
  1800.     move.w    d1,132(a0)        ; Write low 12 bits
  1801.     swap    d1            ;
  1802.     move.w    d1,(a0)            ; Write high 12 bits
  1803.  
  1804.     movem.l    (sp)+,d0-d7/a0-a6    ;
  1805.  
  1806.     ; Finished ------------------------------------------------------------
  1807. .Done
  1808.     rts
  1809.  
  1810.         
  1811. ; *****************************************************************************
  1812. ; DoWalls
  1813. ; -----------------------------------------------------------------------------
  1814. ; Inputs     : -
  1815. ; Output     : -
  1816. ; Description: Draws all visible walls and player.
  1817. ; Notes      : -
  1818. ; Scratch    : All
  1819. ; History    : -
  1820. ; *****************************************************************************
  1821.  
  1822.     ALIGNLONG
  1823.     
  1824. DoWalls
  1825.     ; Check if FirstWall is still visible ---------------------------------
  1826.  
  1827.     move.l    Game_LevelPtr,a1    ; a1 = Pointer to Level array
  1828.     move.w    Level_NumWall(a1),d1    ;
  1829.     subq.w    #1,d1            ; d1 = Level_NumWall-1
  1830.  
  1831.     move.l    Game_WallZ,a4        ; a4 = Pointer to Wall_Z array
  1832.     move.l    Plyr_Z,d2        ; d2 = Plyr_Z
  1833.     move.w    Game_FirstWall,d0    ; d0 = Game_FirstWall
  1834.     move.l    (a4,d0.w*4),d3        ; d3 = Wall_Z[Game_FirstWall]
  1835.     cmp.l    d2,d3            ;
  1836.     bgt.b    .levcpl            ; IF d3 <= d2
  1837.     addq.w    #1,d0            ; THEN Game_FirstWall += 1
  1838.     move.w    d0,Game_FirstWall    ;
  1839.  
  1840.     ; Check if level is completed -----------------------------------------
  1841.     
  1842. .levcpl    cmp.l    #Flg_Normal,Game_Flags    ; IF Game_Flags <> Flg_Normal
  1843.     bne.b    .chk1            ; THEN skip this bit
  1844.     move.l    (a4,d0.w*4),d3        ; d3 = Wall_Z[Game_FirstWall]
  1845.     sub.l    d2,d3            ; d3 = Wall_Z[FW]-Plyr_Z
  1846.     cmp.l    #RealZ,d3        ;
  1847.     bge.b    .chk1            ; IF d3 < RealZ
  1848.     cmp.w    d1,d0            ;
  1849.     bne.b    .chk1            ; AND Game_FirstWall = Level_NumWall-1
  1850.     move.l    #Flg_LevelDone,Game_Flags ; THEN level complete !!!
  1851.     
  1852.     ; Check if a new wall becomes visible ---------------------------------
  1853.  
  1854. .chk1    move.w    Game_LastWall,d0    ; d0 = Game_LastWall
  1855.     cmp.w    d1,d0            ;
  1856.     blt.b    .chk2            ; IF Game_LastWall >= Level_NumWall-1
  1857.     move.w    d1,Game_LastWall    ; THEN Game_LastWall = Level_NumWall-1
  1858.     bra.b    .Draw
  1859. .chk2    addq.w    #1,d0            ; d0 = Game_LastWall+1
  1860.     move.l    (a4,d0.w*4),d1        ; d1 = Wall_Z[Game_LastWall+1]
  1861.     add.l    #ViewD,d2        ; d2 = Plyr_Z + ViewD
  1862.     cmp.l    d2,d1            ;  
  1863.     bge.b    .Draw            ; IF d1 < d2
  1864.     move.w    d0,Game_LastWall    ; THEN Game_LastWall += 1
  1865.     
  1866.     ; Draw the visible walls back to front --------------------------------
  1867. .Draw
  1868.     move.l    #WallLut_X,a1        ;
  1869.     move.l    #WallLut_Y,a2        ;
  1870.     move.l    #WallLut_S,a3        ;
  1871.     move.w    Game_LastWall,d7    ;
  1872.     move.w    d7,d0            ; t=LastWall
  1873.     sub.w    Game_FirstWall,d7    ; d7=LastWall-FirstWall (loop counter)
  1874.     sub.w    #1,d7            ; d7=LastWall-FirstWall-1 
  1875.     bmi.b    .First            ; 
  1876. .drwlop                    ; FOR (t=LastWall; t>=FirstWall-1; t--)
  1877.     move.l    (a4,d0.w*4),d1        ;   d1 = Wall_Z[t]
  1878.     sub.l    Plyr_Z,d1        ;   RelZ = Wall_Z[t] - Plyr_Z
  1879.         
  1880.     movem.l    d0/d1/d7/a0-a3,-(sp)    ;
  1881.     move.l    (a1,d1.w*4),d2        ;   BufferX
  1882.     move.l    (a2,d1.w*4),d3        ;   BufferY
  1883.     move.l  (a3,d1.w*4),d4        ;   Size
  1884.     
  1885.     move.l    Game_WallType,a1    ;   a1 = Pointer to Wall_Type array
  1886.     move.l    #Type_Bitmap,a0        ;
  1887.     move.w    (a1,d0.w*2),d6        ;   d6 = Wall_Type[t]
  1888.     move.l    (a0,d6.w*4),a0         ;   SourcePtr = Type_Bitmap[Wall_Type[t]]
  1889.     move.l    RendCh,a1        ;   BufferPtr
  1890.     bsr.w    ScaleWall        ;
  1891.     movem.l    (sp)+,d0/d1/d7/a0-a3    ;
  1892.  
  1893.     subq.w    #1,d0            ;       
  1894.     dbf    d7,.drwlop        ; NEXT t
  1895.  
  1896.     ; Draw FirstWall and player -------------------------------------------
  1897. .First
  1898.     move.l    (a4,d0.w*4),d1        ; d1 = Wall_Z[t]
  1899.     sub.l    Plyr_Z,d1        ; RelZ = Wall_Z[t] - Plyr_Z
  1900.  
  1901.     cmp.l    #ViewD,d1        ; IF d1 < ViewD
  1902.     bcs.b    .visible        ; THEN FirstWall is visible
  1903.     bsr.w    DrawPlayer        ; ELSE DrawPlayer 
  1904.     bra.w    .Done            ;      and leave !!!
  1905. .visible
  1906.     move.l    (a1,d1.w*4),d2        ; BufferX
  1907.     move.l    (a2,d1.w*4),d3        ; BufferY
  1908.     move.l  (a3,d1.w*4),d4        ; Size
  1909.     move.l    Game_WallType,a1    ; a1 = Pointer to Wall_Type array
  1910.     move.l    #Type_Bitmap,a0        ;
  1911.     move.w    (a1,d0.w*2),d6        ; d6 = Wall_Type[FirstWall]
  1912.     move.l    (a0,d6.w*4),a0         ; SourcePtr = Type_Bitmap[Wall_Type[FW]]
  1913.     move.l    RendCh,a1        ; BufferPtr
  1914.  
  1915.     move.l    d1,a4            ; save RelZ
  1916.     move.l    d6,a6            ; save Wall_Type[FirstWall]
  1917.     cmp.l    #RealZ,d1        ; IF d1 < RealZ
  1918.     bge.b    .else            ;
  1919.     bsr.w    DrawPlayer        ;   DrawPlayer()
  1920.     bsr.w    ScaleWall        ;   ScaleWall()
  1921.     bra.b    .TstColl        ; ELSE
  1922. .else    bsr.w    ScaleWall        ;   ScaleWall()
  1923.     bsr.w    DrawPlayer        ;   DrawPlayer()
  1924.  
  1925.     ; Test for collision --------------------------------------------------
  1926. .TstColl
  1927.     cmp.l    #Flg_Normal,Game_Flags    ; IF Game_Flags <> Flg_Normal
  1928.     bne.b    .Done            ; THEN skip collision check
  1929.     
  1930.     move.l    a4,d1            ; restore RelZ
  1931.     move.l    a6,d0            ; restore Wall_Type[FirstWall]
  1932.     cmp.l    #RealZ,d1        ; IF RelZ <= RealZ
  1933.     bgt.b    .Done            ;
  1934.     move.w    Plyr_ZSpd,d2        ;
  1935.     lsr.w    #8,d2            ;
  1936.     move.w    #RealZ,d3        ;
  1937.     sub.w    d2,d3            ;
  1938.     cmp.w    d3,d1            ; AND RelZ >= (RealZ-Plyr_ZSpd/256)
  1939.     blt.b    .Done            ;
  1940.     bsr.b    InHole            ; AND InHole(Wall_Type[FirstWall])==0
  1941.     bne.b    .Done            ;
  1942.     move.l    #Flg_Collision,Game_Flags ; THEN Collision !
  1943.     sub.w    #1,Plyr_Ships        ;   Plyr_Ships -= 1
  1944.  
  1945.     ; Finished ------------------------------------------------------------
  1946. .Done
  1947.     rts
  1948.  
  1949.  
  1950. ; *****************************************************************************
  1951. ; InHole
  1952. ; -----------------------------------------------------------------------------
  1953. ; Inputs     : d0.w = Type of wall
  1954. ; Output     : d0.l = 0 : Outside hole
  1955. ;              d0.l = 1 : Inside hole
  1956. ; Description: Determines if ship is _completely_ inside the hole a wall.
  1957. ; Notes      : -
  1958. ; Scratch    : d0
  1959. ; History    : -
  1960. ; *****************************************************************************
  1961.  
  1962.     ALIGNLONG
  1963.     
  1964. InHole
  1965.     movem.l    d1-d4/a0-a1,-(sp)        ; Save registers
  1966.     
  1967.     lea    Type_Hole,a0            ; Hole data
  1968.     lea    Coll_Bounds,a1            ; Collision bounds data
  1969.     move.w    Plyr_Frame,d3            ; Current player frame number
  1970.  
  1971.     move.w    Type_HoleX1(a0,d0.w*8),d2    ; IF (Plyr_X-Coll_BoundsX1)
  1972.     move.w    Plyr_X,d1            ;    < Type_HoleX1[Type] 
  1973.     move.w    Coll_BoundsX1(a1,d3.w*8),d4    ;    
  1974.     add.w    d4,d1                ;
  1975.     cmp.w    d2,d1                ; 
  1976.     blt.b    .Ret0                ; THEN return 0
  1977.  
  1978.     move.w    Type_HoleX2(a0,d0.w*8),d2    ; IF (Plyr_X+Coll_BoundsX2)
  1979.     move.w    Plyr_X,d1            ;    > Type_HoleX2[Type]
  1980.     move.w    Coll_BoundsX2(a1,d3.w*8),d4    ;
  1981.     add.w    d4,d1                ;
  1982.     cmp.w    d2,d1                ;
  1983.     bgt.b    .Ret0                ; THEN return 0
  1984.  
  1985.     move.w    Type_HoleY1(a0,d0.w*8),d2    ; IF (Plyr_Y-Coll_BoundsY1)
  1986.     move.w    Plyr_Y,d1            ;    < Type_HoleY1[Type]
  1987.     move.w    Coll_BoundsY1(a1,d3.w*8),d4    ;
  1988.     add.w    d4,d1                ;   
  1989.     cmp.w    d2,d1                ;
  1990.     blt.b    .Ret0                ; THEN return 0
  1991.  
  1992.     move.w    Type_HoleY2(a0,d0.w*8),d2    ; IF (Plyr_Y+Coll_BoundsY2)
  1993.     move.w    Plyr_Y,d1            ;    > Type_HoleY2[Type]
  1994.     move.w    Coll_BoundsY2(a1,d3.w*8),d4    ;
  1995.     add.w    d4,d1                ;
  1996.     cmp.w    d2,d1                ;    
  1997.     bgt.b    .Ret0                ; THEN return 0
  1998.  
  1999. .Ret1    moveq    #1,d0                ; Return 1
  2000.     movem.l    (sp)+,d1-d4/a0-a1        ; Restore registers
  2001.     rts
  2002. .Ret0    moveq    #0,d0                ; Return 0
  2003.     movem.l    (sp)+,d1-d4/a0-a1        ; Restore registers
  2004.     rts
  2005.  
  2006.  
  2007. ; *****************************************************************************
  2008. ; DrawTunnel
  2009. ; -----------------------------------------------------------------------------
  2010. ; Inputs     : -
  2011. ; Outputs    : -
  2012. ; Description: Draws the tunnel into the chunky buffer.
  2013. ; Notes      : -
  2014. ; Scratch    : d0,d1,d7,a0,a1,a2
  2015. ; Author     : Matthijs Hollemans
  2016. ; History    : 24 Dec 1996
  2017. ;              04 Jan 1997, Major speedup: writes longs instead of bytes.
  2018. ; *****************************************************************************
  2019.  
  2020.     ALIGNLONG
  2021.     
  2022. DrawTunnel
  2023.     moveq    #0,d0
  2024.     move.w    #160*128/4-1,d7        ; 20480 pixels
  2025.     move.l    RendCh,a0
  2026.     move.l    #txt,a1            ; Pointer to texture
  2027.     move.l    #TxtLut,a2        ; Pointer to texture LookUpTable
  2028.     move.w    Plyr_Scroll,d1
  2029. .loop    move.w    d1,d0            ; d0  = Scroll
  2030.     add.w    (a2)+,d0        ; d0 += Texture offset
  2031.     move.b    (a1,d0.l),d2        ; xxxxxxAA
  2032.     lsl.w    #8,d2            ; xxxxAAxx
  2033.     move.w    d1,d0            ; d0  = Scroll
  2034.     add.w    (a2)+,d0        ; d0 += Texture offset
  2035.     move.b    (a1,d0.l),d2        ; xxxxAABB
  2036.     swap    d2            ; AABBxxxx
  2037.     move.w    d1,d0            ; d0  = Scroll
  2038.     add.w    (a2)+,d0        ; d0 += Texture offset
  2039.     move.b    (a1,d0.l),d2        ; AABBxxCC
  2040.     lsl.w    #8,d2            ; AABBCCxx
  2041.     move.w    d1,d0            ; d0  = Scroll
  2042.     add.w    (a2)+,d0        ; d0 += Texture offset
  2043.     move.b    (a1,d0.l),d2        ; AABBCCDD
  2044.     move.l    d2,(a0)+        ; Store 4 pixels in chunky buffer
  2045.     dbf    d7,.loop
  2046.     rts
  2047.  
  2048.  
  2049. ; *****************************************************************************
  2050. ; ScaleWall
  2051. ; -----------------------------------------------------------------------------
  2052. ; Inputs     : a0   = SourcePtr
  2053. ;             a1   = BufferPtr
  2054. ;              d2.l = BufferX
  2055. ;              d3.l = BufferY
  2056. ;              d4.l = Destination Size (= width = height)
  2057. ;              d6.w = Walltype
  2058. ; Output     : -
  2059. ; Description: Scales a 128x128 chunky image.
  2060. ; Notes      : o Performs clipping.
  2061. ;              o Does not perform mirroring.
  2062. ;              o Destination coordinates are allowed to be negative.
  2063. ;              o Colour 0 is transparent.
  2064. ; Scratch    : d0-d7/a0-a3/a5
  2065. ; Author     : Matthijs Hollemans
  2066. ; History    : 27 Dec 1996
  2067. ;              04 Jan 1997, On some walls (WT_Left/Right/Up/Down) a lot of
  2068. ;                           transparent pixels were scaled, wasting time.
  2069. ; *****************************************************************************
  2070.  
  2071.     ALIGNLONG
  2072.     
  2073. ScaleWall
  2074.     ; Determine step size -------------------------------------------------
  2075.  
  2076.     move.l    d4,d5            ; ClipW = ClipH = Destination Size
  2077.     move.l    #$8000,d0        ; XStep = SourceW << 8
  2078.     divu    d4,d0            ; XStep = (SourceW << 8) / DestW
  2079.     andi.l    #$ffff,d0        ; Get rid of remainder
  2080.     move.l    d0,d1            ; YStep = XStep
  2081.  
  2082.     ; Special type ? ------------------------------------------------------
  2083.  
  2084.     cmp.w    #WT_Left,d6        ; IF Walltype=WT_Left
  2085.     bne.b    .nolt            ;
  2086.     lsr.l    #1,d4            ;   ClipW /= 2
  2087.     bra.b    .Clip            ; ENDIF
  2088. .nolt    cmp.w    #WT_Right,d6        ; IF Walltype=WT_Right
  2089.     bne.b    .nort            ;
  2090.     lsr.l    #1,d4            ;   ClipW / 2
  2091.     move.l    #CenterX,d2        ;   BufferX = CenterX
  2092.     bra.b    .Clip            ; ENDIF
  2093. .nort    cmp.w    #WT_Up,d6        ; IF Walltype=WT_Up
  2094.     bne.b    .noup            ;
  2095.     lsr.l    #1,d5            ;   ClipH / 2 
  2096.     bra.b    .Clip            ; ENDIF
  2097. .noup    cmp.w    #WT_Down,d6        ; IF Walltype=WT_Down
  2098.     bne.b    .Clip            ;   ClipH / 2
  2099.     lsr.l    #1,d5            ;   BufferY = CenterY
  2100.     move.l    #CenterY,d3        ; ENDIF
  2101.     
  2102.     ; Clipping ------------------------------------------------------------
  2103.  
  2104. .Clip    moveq    #0,d6            ; SY = 0
  2105.     cmp.l    #ClipT,d3        ; IF BufferY < ClipT
  2106.     bge.b    .Bottom            ;
  2107.     move.l    #ClipT,d6        ;   d6 = ClipT
  2108.     sub.l    d3,d6            ;   d6 = ClipT - BufferY
  2109.     sub.l    d6,d5            ;   d5 -= ClipT - BufferY
  2110.     mulu    d1,d6            ;   d6 = (ClipT - BufferY) * YStep
  2111.     move.l    #ClipT,d3        ;   d3 = ClipT
  2112. .Bottom                    ; ENDIF
  2113.     move.l    d3,d7            ; d7 = BufferY
  2114.     add.l    d5,d7            ; d7 = BufferY + ClipH
  2115.     cmp.l    #ClipB,d7        ; IF (BufferY + ClipH) > ClipB
  2116.     ble.b    .Left            ;
  2117.     move.l    #ClipB,d5        ;   d5 = ClipB
  2118.     sub.l    d3,d5            ;   d5 = ClipB - BufferY
  2119.     addq.l    #1,d5            ;   d5 = ClipB - BufferY + 1
  2120. .Left                    ; ENDIF
  2121.     mulu    #BufferW,d3        ; d3 = BufferY * BufferW
  2122.     add.l    d3,a1            ; a1 += BufferY * BufferW
  2123.     moveq    #0,d3            ; StartSX = 0
  2124.  
  2125.     cmp.l    #ClipL,d2        ; IF BufferX < ClipL
  2126.     bge.b    .Right            ;
  2127.     move.l    #ClipL,d3        ;   d3 = ClipL
  2128.     sub.l    d2,d3            ;   d3 = ClipL - BufferX
  2129.     sub.l    d3,d4            ;   d4 -= (ClipL - BufferX)
  2130.     mulu    d0,d3            ;   d3 = (ClipL - BufferX) * XStep
  2131.     move.l    #ClipL,d2        ;   d2 = ClipL
  2132. .Right                    ; ENDIF
  2133.     move.l    d2,d7            ; d7 = BufferX
  2134.     add.l    d4,d7            ; d7 = BufferX + ClipW
  2135.     cmp.l    #ClipR,d7        ; IF (BufferX + ClipW) > ClipR
  2136.     ble.b    .ClpEnd            ;
  2137.     move.l    #ClipR,d4        ;   d4 = ClipR
  2138.     sub.l    d2,d4            ;   d4 = ClipR - BufferX
  2139.     addq.l    #1,d4            ;   d4 = ClipR - BufferX + 1
  2140. .ClpEnd                    ; ENDIF
  2141.     add.l    d2,a1            ; a1 += BufferX
  2142.     move.l    #BufferW,a3        ; a3 = BufferW
  2143.     sub.l    d4,a3            ; a3 = BufferW - ClipW
  2144.     subq.l    #1,d4            ; ClipW-1
  2145.     bmi.b    .Done            ; IF ClipW < 0 THEN Done
  2146.     subq.l    #1,d5            ; ClipH-1
  2147.     bmi.b    .Done            ; IF ClipH < 0 THEN Done
  2148.     move.l    d3,a5            ; a5 = StartSX
  2149.         
  2150.     ; Scaling -------------------------------------------------------------
  2151.  
  2152.     ; a0 = SourcePtr, a1 = BufferPtr, a2 = SourceLoop, a3 = BufferStep
  2153.     ; a5 = StartSX
  2154.     ; d0 = XStep, d1 = YStep, d2 = SX (only in ColLoop)
  2155.     ; d3 = scratch, d4 = ColLoop counter backup
  2156.     ; d5 = RowLoop counter, d6 = SY, d7 = ColLoop counter
  2157.  
  2158. .RowLoop                ; FOR (i=0; i < ClipH; i++)
  2159.     move.l    d6,d2            ;   d2 = SY
  2160.     movea.l    a0,a2            ;   a2 = SourcePtr
  2161.  
  2162.     lsr.l    #1,d2            ;   d2 = (SY >> 8)
  2163.     andi.l    #$ffffff80,d2        ;   d2 = (SY >> 8) * SourceW
  2164.     add.l    d2,a2            ;   a2 = SourcePtr + (SY >> 8)*SourceW
  2165.  
  2166.     move.l    a5,d2            ;   d2 = StartSX
  2167.     move.l    d4,d7            ;   FOR (j=0; j < ClipW; j++)
  2168. .ColLoop                ;    
  2169.     move.l    d2,d3            ;
  2170.     lsr.l    #8,d3            ;     d3 = SX >> 8
  2171.     add.l    d0,d2            ;     d2 += XStep
  2172.     move.b    (a2,d3.w),d3        ;     d3 = *(SourceLoop + (SX >> 8))
  2173.     beq.b    .NxtCol            ;     IF d3 == 0 THEN don't draw
  2174.     move.b    d3,(a1)            ;     *BufferPtr = d3
  2175. .NxtCol    addq.l    #1,a1            ;     BufferPtr += 1
  2176.     dbf    d7,.ColLoop        ;   ENDFOR
  2177.  
  2178.     adda.l    a3,a1            ;   a1 += BufferStep
  2179.     add.l    d1,d6            ;   d6 += YStep
  2180.     dbf    d5,.RowLoop        ; ENDFOR
  2181.  
  2182.     ; Finished ------------------------------------------------------------
  2183. .Done    
  2184.     rts
  2185.  
  2186.  
  2187. ; *****************************************************************************
  2188. ; MyVBLHandler
  2189. ; -----------------------------------------------------------------------------
  2190. ; Inputs     : -
  2191. ; Output     : -
  2192. ; Description: Custom VBL interrupt handler. Takes care of timers and stuff.
  2193. ; Notes      : Called from int3.
  2194. ; Scratch    : -
  2195. ; Author     : -
  2196. ; History    : -
  2197. ; *****************************************************************************
  2198.  
  2199. MyVBLHandler
  2200.     ; Toggle --------------------------------------------------------------
  2201.     
  2202.     move.l    ToggleCnt,d0            ; ToggleCnt += 1
  2203.     add.l    #1,d0                ;
  2204.     cmp.l    #20,d0                ; IF ToggleCnt > 20
  2205.     blt.b    .notogl                ;
  2206.     bchg    #0,Toggle            ;   Toggle
  2207.     moveq    #0,d0                ;   ToggleCnt=0
  2208. .notogl    move.l    d0,ToggleCnt            ; ENDIF
  2209.  
  2210.     ; RealTime ------------------------------------------------------------
  2211.  
  2212.     add.l    #1,RealTimeCnt            ; RealTimeCnt += 1
  2213.  
  2214.     ; Timers --------------------------------------------------------------
  2215.  
  2216.     cmp.l    #Flg_Normal,Game_Flags        ; IF Flg_Normal
  2217.     bne.b    .spcial                ;
  2218.     move.l    #0,FlgTimer            ; THEN FlgTimer = 0
  2219.     sub.l    #1,Plyr_Time            ;      Plyr_Time -= 1
  2220.     bra.b    .tstcol                ; 
  2221. .spcial    add.l    #1,FlgTimer            ; ELSE FlgTimer += 1
  2222.  
  2223. .tstcol    cmp.l    #Flg_Collision,Game_Flags    ; IF Flg_Collision
  2224.     bne.b    .Coll                ;
  2225.     sub.l    #1,Plyr_Time            ; THEN Plyr_Time -= 1
  2226.     
  2227.     ; Collision Fade ------------------------------------------------------
  2228. .Coll
  2229.     cmp.l    #Flg_Collision,Game_Flags    ; IF not collision
  2230.     beq.b    .coll1                ; 
  2231.     cmp.l    #Flg_RaceOver,Game_Flags    ; OR race over
  2232.     bne.b    .Done                ; THEN skip this part
  2233.  
  2234. .coll1    cmp.l    #1,FlgTimer            ; IF FlgTimer = 1
  2235.     blt.b    .Done                ;
  2236.     bgt.b    .coll0                ;
  2237.     move.l    RendCop,a0            ;
  2238.     add.l    #CopCol-Cop,a0            ;
  2239.     move.l    #WhitePal,a1            ;
  2240.     bsr.w    SetPal24            ;   Make screen totally white
  2241.     move.l    #WhitePal,a0            ;
  2242.     move.l    #TempPal,a1            ;
  2243.     bsr.w    CopyPal24            ;
  2244.     move.b    #5,d0                ;
  2245.     bsr.w    InitXFade            ;   Initialise crossfade
  2246.     bra.b    .Done                ;
  2247. .coll0    move.l    #TempPal,a0            ; ELSEIF FlgTimer > 1
  2248.     move.l    #GamePal,a1            ;
  2249.     bsr.w    XFade                ;
  2250.     move.l    RendCop,a0            ;   Crossfade white to 
  2251.     add.l    #CopCol-Cop,a0            ;   original game palette
  2252.     move.l    #TempPal,a1            ;
  2253.     bsr.w    SetPal24            ; ENDIF
  2254.  
  2255.     ; Finished ------------------------------------------------------------
  2256. .Done
  2257.     rts
  2258.  
  2259.  
  2260. ; *****************************************************************************
  2261. ; LoadScores
  2262. ; -----------------------------------------------------------------------------
  2263. ; Inputs     : -
  2264. ; Output     : -
  2265. ; Description: Stores default values in BestTimes and BestNames arrays.
  2266. ; Notes      : -
  2267. ; Scratch    : All
  2268. ; Author     : Matthijs Hollemans
  2269. ; History    : 23 Jan 1997
  2270. ; *****************************************************************************
  2271.  
  2272.     ALIGNLONG
  2273.     
  2274. LoadScores
  2275.     lea    BestTimes,a0        ;
  2276.     lea    BestNames,a1        ;
  2277.     move.w    #9-1,d7            ; 
  2278. .loop0    move.l    #29950,(a0)+        ; Write default time
  2279.     move.l    #"NOBO",(a1)+        ; }
  2280.     move.l    #"DY  ",(a1)+        ; }- Write default name
  2281.     move.l    #$20202000,(a1)+    ; }
  2282.     dbf    d7,.loop0        ;
  2283.     rts
  2284.  
  2285.  
  2286. ; =============================================================================
  2287. ; 
  2288. ;                             S U B R O U T I N E S
  2289. ;
  2290. ; =============================================================================
  2291.  
  2292.  
  2293. ; *****************************************************************************
  2294. ; PPutChr 
  2295. ; -----------------------------------------------------------------------------
  2296. ; Inputs     : a1   = Pointer to first bitplane
  2297. ;            d0.l = ASCII character
  2298. ; Output     : -
  2299. ; Description: Planar Put Character.
  2300. ; Notes      : -
  2301. ; Scratch    : d0,d1,d2,d7,a2,a3,a5
  2302. ; Author     : Matthijs Hollemans
  2303. ; History    : 06 Jan 1997
  2304. ; *****************************************************************************
  2305.  
  2306.     ALIGNLONG
  2307.     
  2308. PPutChr
  2309.     lea    IntroFont,a2        ; a2 = Pointer to gfx
  2310.     sub.l    #32,d0            ; Convert ASCII
  2311.     move.l    d0,d1            ; d0 = Offset for plane 7 gfx
  2312.     add.w    #1024,d1        ; d1 = Offset for plane 8 gfx
  2313.     move.l    a1,a5            ;
  2314.     add.l    #20480,a5        ; a5 = Pointer to plane 8
  2315.     move.l    a1,a3            ; a3 = Pointer to plane 7
  2316.     move.w    #16-1,d7        ; Draw 16 lines
  2317. .copy    move.b    (a2,d0.w),(a3)        ; Write to plane 7
  2318.     move.b    (a2,d1.w),(a5)        ; Write to plane 8
  2319.     add.l    #40,a3            ; Next line in plane 7
  2320.     add.l    #40,a5            ; Next line in plane 8
  2321.     add.l    #64,a2            ; Next line in gfx
  2322.     dbf    d7,.copy        ; Draw next line
  2323.     rts
  2324.     
  2325.  
  2326. ; *****************************************************************************
  2327. ; PPutStr 
  2328. ; -----------------------------------------------------------------------------
  2329. ; Inputs     : a0 = Pointer to null-terminated string
  2330. ;              a1 = Pointer to first bitplane
  2331. ; Output     : -
  2332. ; Description: Planar Put String.
  2333. ; Notes      : -
  2334. ; Scratch    : All
  2335. ; Author     : Matthijs Hollemans
  2336. ; History    : 06 Jan 1997
  2337. ; *****************************************************************************
  2338.  
  2339.     ALIGNLONG
  2340.     
  2341. PPutStr
  2342.     moveq    #0,d0
  2343. .loop    move.b    (a0)+,d0        ; Read next character
  2344.     beq.b    .Done            ; NULL byte ? then we're done
  2345.     bsr.b    PPutChr            ; Write character
  2346.     addq.l    #1,a1            ; Next position on screen
  2347.     bra.b    .loop            ; Next character
  2348. .Done    rts                ; Finished
  2349.  
  2350.  
  2351. ; *****************************************************************************
  2352. ; CPutStr
  2353. ; -----------------------------------------------------------------------------
  2354. ; Inputs     : a0 = Pointer to null-terminated string
  2355. ;           a1 = Pointer to chunky buffer.
  2356. ; Output     : -
  2357. ; Description: Chunky Put String
  2358. ; Notes      : -
  2359. ; Scratch    : d0,d1,d2,d6,d7,a1,a2,a3
  2360. ; Author     : Matthijs Hollemans
  2361. ; History    : 08 Jan 1996
  2362. ; *****************************************************************************
  2363.  
  2364.     ALIGNLONG
  2365.     
  2366. CPutStr
  2367.     moveq    #0,d0
  2368. .loop    move.b    (a0)+,d0        ; Read next character
  2369.     beq.b    .Done            ; NULL byte ? then we're done
  2370.     bsr.b    CPutChr            ; Write character
  2371.     addq.l    #8,a1            ; Next position on screen
  2372.     bra.b    .loop            ; Next character
  2373. .Done    rts                ; Finished
  2374.  
  2375.  
  2376. ; *****************************************************************************
  2377. ; CPutChr
  2378. ; -----------------------------------------------------------------------------
  2379. ; Inputs     : a1   = Pointer to chunky buffer
  2380. ;           d0.l = ASCII character
  2381. ; Output     : -
  2382. ; Description: Chunky Put Character.
  2383. ; Notes      : -
  2384. ; Scratch    : d0,d1,d2,d6,d7,a2,a3
  2385. ; Author     : Matthijs Hollemans
  2386. ; History    : 08 Jan 1996
  2387. ; *****************************************************************************
  2388.  
  2389.     ALIGNLONG
  2390.     
  2391. CPutChr
  2392.     lea    ChunkyFont,a2        ; a2 = Pointer to gfx
  2393.     sub.l    #32,d0            ; Convert ASCII
  2394.     move.l    d0,d1            ;
  2395.     lsl.l    #3,d1            ; d1 = Offset for gfx 
  2396.     add.l    d1,a2            ; a2 += offset
  2397.     move.l    a1,a3            ; a3 = Pointer to chunkybuffer
  2398.     move.w    #7,d6            ; }_ 8x8 character
  2399. .y    move.w    #7,d7            ; }
  2400. .x    move.b    (a2),d2            ; Read gfx byte
  2401.     beq.b    .skip            ; 0 ? Then transparent, skip write
  2402.     move.b    d2,(a3)            ; Write gfx byte 
  2403. .skip    add.l    #1,a3            ; Next pixel in chunky buffer
  2404.     add.l     #1,a2            ; Next pixel in gfx
  2405.     dbf    d7,.x            ; 
  2406.     add.l    #BufferW-8,a3        ; Next row in chunky buffer
  2407.     add.l    #512-8,a2        ; Next row in gfx
  2408.     dbf    d6,.y            ; 
  2409.     rts
  2410.  
  2411.  
  2412. ; *****************************************************************************
  2413. ; CWriteTime, PWriteTime
  2414. ; -----------------------------------------------------------------------------
  2415. ; Inputs     : a4.l = Offset in chunky buffer
  2416. ;           d5.l = Time (in ticks)
  2417. ; Output     : -
  2418. ; Description: CWriteTime: writes time as M:SS in chunky buffer.
  2419. ;              PWriteTime: writes time as M:SS on 2-bitplane screen.
  2420. ; Notes      : -
  2421. ; Scratch    : All
  2422. ; Author     : -
  2423. ; History    : -
  2424. ; *****************************************************************************
  2425.  
  2426. CalcTime
  2427.     divu.w    #50,d5            ; Total secs = Ticks / 50
  2428.     and.l    #$ffff,d5        ; kill remainder
  2429.     divu.w    #60,d5            ; Min = Total secs / 60
  2430.     move.l    d5,d3            ; 
  2431.     and.l    #$f,d5            ; kill remainder
  2432.     swap    d3            ; Sec = Total secs MOD 60
  2433.     and.l    #$ffff,d3        ; kill msw
  2434.     divu    #10,d3            ; 
  2435.     move.l    d3,d4            ;
  2436.     swap    d4            ; Get second
  2437.     and.l    #$f,d3            ;
  2438.     and.l    #$f,d4            ;
  2439.     rts
  2440.  
  2441. CWriteTime
  2442.     bsr.b    CalcTime        ; Calculate time
  2443.     CPUTNUM    d5,a4            ; X:xx
  2444.     addq.l    #8,a4            ;
  2445.     CPUTCHR    #58,a4            ; :
  2446.     addq.l    #8,a4            ;
  2447.     CPUTNUM    d3,a4            ; x:Xx
  2448.     addq.l    #8,a4            ;
  2449.     CPUTNUM    d4,a4            ; x:xX
  2450.     rts
  2451.  
  2452. PWriteTime
  2453.     bsr.w    CalcTime        ; Calculate time
  2454.     PPUTNUM    d5,a4            ; X:xx
  2455.     addq.l    #1,a4            ;
  2456.     PPUTCHR    #58,a4            ; :
  2457.     addq.l    #1,a4            ;
  2458.     PPUTNUM    d3,a4            ; x:Xx
  2459.     addq.l    #1,a4            ;
  2460.     PPUTNUM    d4,a4            ; x:xX
  2461.     rts
  2462.  
  2463.     
  2464. ; *****************************************************************************
  2465. ; SetPal24
  2466. ; -----------------------------------------------------------------------------
  2467. ; Inputs     : a0 = Pointer to coplist colors
  2468. ;              a1 = Palette
  2469. ; Output     : -
  2470. ; Description: Copies a 24-bit 256-colour palette into a coplist.
  2471. ; Notes      : Palette has to be ordered like this:
  2472. ;              $00RrGgBb,$00RrGgBb,...,$00RrGgBb
  2473. ; Scratch    : d6,d7,a0,a1
  2474. ; Author     : Matthijs Hollemans
  2475. ; History    : 4 Jan 1996
  2476. ; *****************************************************************************
  2477.  
  2478.     ALIGNLONG
  2479.     
  2480. SetPal24
  2481.     add.l    #6,a0            ; 
  2482.     move.w    #8-1,d6            ; Set 8 banks
  2483. .loop0  move.w    #32-1,d7        ; Set 32 colour registers
  2484.  
  2485. .loop1    move.l    (a1)+,d0        ; d0 = 00RrGgBb
  2486.     move.w    d0,d1            ; d1 = GgBb
  2487.     lsr.w    #8,d1            ; d1 = 00Gg
  2488.     and.w    #$f0,d1            ; d1 = 00G0
  2489.     move.w    d0,d2            ; d2 = GgBb
  2490.     and.w    #$f0,d2            ; d2 = 00B0
  2491.     lsr.w    #4,d2            ; d2 = 000B
  2492.     or.w    d1,d2            ; d2 = 00GB
  2493.     move.l    d0,d1            ; d1 = 00RrGgBb
  2494.     swap    d1            ; d1 = GgBb00Rr
  2495.     and.w    #$f0,d1            ; d1 = 00R0
  2496.     lsl.w    #4,d1            ; d1 = 0R00
  2497.     or.w    d1,d2            ; d2 = 0RGB
  2498.  
  2499.     move.w    d2,(a0)            ; Write high 12-bits in copperlist
  2500.     
  2501.     move.w    d0,d1            ; d1 = GgBb
  2502.     and.w    #$f00,d1        ; d1 = 0g00
  2503.     lsr.w    #4,d1            ; d1 = 00g0
  2504.     move.w    d0,d2            ; d2 = GgBb
  2505.     and.w    #$f,d2            ; d2 = 000b
  2506.     or.w    d1,d2            ; d2 = 00gb
  2507.     swap    d0            ; d0 = GgBb00Rr
  2508.     and.w    #$f,d0            ; d0 = 000r
  2509.     lsl.w    #8,d0            ; d0 = 0r00
  2510.     or.w    d0,d2            ; d2 = 0rgb
  2511.  
  2512.     move.w    d2,132(a0)        ; Write low 12-bits in copperlist
  2513.     
  2514.     add.l    #4,a0            ; Next colour
  2515.     dbf    d7,.loop1        ; 
  2516.     add.l    #128+4+4,a0        ; 
  2517.     dbf    d6,.loop0        ;
  2518.     rts                ;
  2519.  
  2520.  
  2521. ; *****************************************************************************
  2522. ; CopyPal24
  2523. ; -----------------------------------------------------------------------------
  2524. ; Inputs     : a0 = Source palette
  2525. ;              a1 = Destination palette
  2526. ; Output     : -
  2527. ; Description: Copies 24-bit source palette into 24-bit destination palette.
  2528. ; Notes      : - 
  2529. ; Scratch    : All
  2530. ; Author     : Matthijs Hollemans
  2531. ; History    : 23 Jan 1997
  2532. ; *****************************************************************************
  2533.  
  2534. CopyPal24
  2535.     move.l    #256-1,d7        ; 256 colours
  2536. .loop    move.l    (a0)+,(a1)+        ; Copy 24-bit colour 
  2537.     dbf    d7,.loop        ;
  2538.     rts                
  2539.  
  2540.  
  2541. ; *****************************************************************************
  2542. ; InitXFade 
  2543. ; -----------------------------------------------------------------------------
  2544. ; Inputs     : d0.b = Stepsize (positive value)
  2545. ; Output     : -
  2546. ; Description: Initialises XFade.
  2547. ; Notes      : Call once before calling XFade.
  2548. ; Scratch    : -
  2549. ; Author     : Matthijs Hollemans
  2550. ; History    : 23 Jan 1997
  2551. ; *****************************************************************************
  2552.  
  2553. InitXFade
  2554.     and.l    #$ff,d0            ; Extend d0 to long (unsigned)
  2555.     move.b    d0,XFadeStep        ; XFadeStep = Stepsize
  2556.     move.l    #$ff,d1            ;
  2557.     divu.w    d0,d1            ; XFadeCount = 255 / Stepsize
  2558.     move.w    d1,XFadeCount        ;
  2559.     rts
  2560.  
  2561.  
  2562. ; *****************************************************************************
  2563. ; XFade 
  2564. ; -----------------------------------------------------------------------------
  2565. ; Inputs     : a0 = Source palette
  2566. ;              a1 = Destination palette
  2567. ; Output     : -
  2568. ; Description: Fades 24-bit source palette to 24-bit destination palette. 
  2569. ; Notes      : If XFadeCount is negative, then fading is ready and the
  2570. ;              routine exits. Start a new fade by calling InitXFade.
  2571. ; Scratch    : All
  2572. ; Author     : Matthijs Hollemans
  2573. ; History    : 23 Jan 1997
  2574. ; *****************************************************************************
  2575.  
  2576.     ALIGNLONG
  2577.     
  2578. XFade
  2579.     tst.w    XFadeCount        ; IF XFadeCount < 0
  2580.     bmi.b    .Done            ; THEN xfade is ready
  2581.  
  2582.     move.b    XFadeStep,d3        ; d3 = Step
  2583.     ext.w    d3            ; Extend d3 to word size !
  2584.     move.b    d3,d4            ;
  2585.     neg.b    d4            ; d4 = -Step
  2586.     ext.w    d4            ; Extend d4 to word size !
  2587.     move.l    #256-1,d7        ; Process 256 colours
  2588. .loop    addq.l    #1,a0            ; }_ Skip first byte
  2589.     addq.l    #1,a1            ; }
  2590.     moveq    #3-1,d6            ; Loop 3 times (r,g and b)
  2591. .rgb    moveq    #0,d0            ; }_ Clear registers
  2592.     move.l    d0,d2            ; }
  2593.     move.b    (a0),d0            ; d0 = Source component
  2594.     move.b    (a1)+,d1        ; d1 = Dest component
  2595.     move.b    d1,d2            ;
  2596.     sub.w    d0,d2            ; d2 = Dest-Source (word!!!)
  2597.     cmp.w    d3,d2            ; IF d2 > Step
  2598.     ble.b    .0            ;
  2599.     add.b    d3,d0            ;   Source += Step
  2600.     bra.b    .write            ;
  2601. .0    cmp.w    d4,d2            ; ELSEIF d2 < -Step
  2602.     bge.b    .1            ;
  2603.     sub.b    d3,d0            ;   Source -= Step
  2604.     bra.b    .write            ;
  2605. .1    move.b    d1,d0            ; ELSE Source = Dest
  2606. .write    move.b    d0,(a0)+        ; Write new source component
  2607.     dbf    d6,.rgb            ;
  2608.     dbf    d7,.loop        ;
  2609.     sub.w    #1,XFadeCount        ; XFadeCount -= 1
  2610. .Done                    ;
  2611.     rts                ;
  2612.  
  2613. XFadeCount    dc.w    0
  2614. XFadeStep    dc.b    0
  2615.  
  2616.  
  2617. ; *****************************************************************************
  2618. ; GetJoy1
  2619. ; -----------------------------------------------------------------------------
  2620. ; Inputs     : -
  2621. ; Outputs    : -
  2622. ; Description: Reads position of joystick 1.
  2623. ; Notes      : Results in Joy1Up, Joy1Down, Joy1Left, Joy1Right, Joy1Fire.
  2624. ; Scratch    : -
  2625. ; Author     : Matthijs Hollemans
  2626. ; History    : 24 Dec 1996
  2627. ; *****************************************************************************
  2628.  
  2629.     ALIGNLONG
  2630.     
  2631. GetJoy1    movem.l    d0/d1,-(sp)
  2632.     move.w    $dff00c,d0        ; JOY1DAT
  2633.     btst    #1,d0
  2634.     sne    Joy1Right
  2635.     btst    #9,d0
  2636.     sne    Joy1Left
  2637.     move.w    d0,d1
  2638.     lsr.w    #1,d1
  2639.     eor.w    d0,d1
  2640.     btst    #0,d1
  2641.     sne    Joy1Down
  2642.     btst    #8,d1
  2643.     sne    Joy1Up
  2644.     moveq    #0,d0
  2645.     btst.b    #7,$bfe001        ; CIA-A PRA
  2646.     seq    Joy1Fire
  2647.     movem.l    (sp)+,d0/d1
  2648.     rts
  2649.  
  2650.  
  2651. ; *****************************************************************************
  2652. ; WaitVBL
  2653. ; -----------------------------------------------------------------------------
  2654. ; Inputs     : -
  2655. ; Output     : -
  2656. ; Description: Waits for vertical blank.
  2657. ; Notes      : -
  2658. ; Scratch    : None
  2659. ; Author     : -
  2660. ; History    : -
  2661. ; *****************************************************************************
  2662.  
  2663.     ALIGNLONG
  2664.     
  2665. WaitVBL    move.l    d0,-(sp)
  2666.     move.b    $bfe801,d0
  2667. .wait    cmp.b    $bfe801,d0
  2668.     beq.b    .wait
  2669.     move.l    (sp)+,d0
  2670.     rts
  2671.  
  2672.  
  2673. ; *****************************************************************************
  2674. ; GetKey 
  2675. ; -----------------------------------------------------------------------------
  2676. ; Inputs     : -
  2677. ; Output     : KeyState and KeyRaw
  2678. ; Description: Gets keyboard input
  2679. ; Notes      : -
  2680. ; Scratch    : d0,d1
  2681. ; Author     : Fabio Bizetti
  2682. ; History    : 11 Jan 1997, modified by Matthijs Hollemans
  2683. ; *****************************************************************************
  2684.  
  2685. GetKey
  2686.     move.w    $dff01c,d1        ; Save INTENA
  2687.         or.w     #$c000,d1        ; 
  2688.      move.w    #$7fff,$dff09a        ; Disable all interrupts
  2689.  
  2690.     moveq    #0,d0            ;
  2691.      move.b    $bfec01,d0        ; Get byte from CIA-A serial port
  2692.      
  2693.      bset.b    #6,$bfee01        ; Set serial port to output
  2694.      move.b    #$40,$bfe401        ; }_ CIA-A TimerA = 64
  2695.      move.b    #$00,$bfe501        ; }
  2696.      move.b    #$51,$bfee01        ; Handshake
  2697.      tst.b    $bfed01            ;
  2698.      tst.b    $bfed01            ;
  2699. .Wait    btst.b    #0,$bfed01        ; }_ Wait for TimerA to finish
  2700.      beq.b    .Wait            ; }
  2701.      bclr.b    #6,$bfee01        ; Set serial port to input
  2702.      
  2703.      not.b    d0            ; Datalines are low active
  2704.      ror.b    #1,d0            ; Bits are sent as 6-5-4-3-2-1-0-7
  2705.      bpl.b    .Down            ; IF Key was released
  2706.      move.b    #KEY_NONE,KeyState    ;   KeyState = KEY_NONE
  2707.      move.b    d0,KeyRaw        ;   KeyRaw = new key with bit 7 set!
  2708.     bra.b    .Done            ; ENDIF
  2709. .Down    cmp.b    KeyRaw,d0        ; IF old key == new key 
  2710.     bne.b    .New            ;
  2711.     move.b    #KEY_REPEAT,KeyState    ;   KeyState = KEY_REPEAT
  2712.     bra.b    .Done            ; ENDIF
  2713. .New     move.b    d0,KeyRaw        ; KeyRaw = new key
  2714.     move.b    #KEY_NEW,KeyState    ; KeyState = KEY_NEW
  2715.      
  2716. .Done    move.w    d1,$dff09a        ; Restore interrupts
  2717.     rts                ;
  2718.  
  2719.  
  2720. ; *****************************************************************************
  2721. ; GetStr
  2722. ; -----------------------------------------------------------------------------
  2723. ; Inputs     : -
  2724. ; Output     : -
  2725. ; Description: Gets string input from user and stores it in Plyr_Name.
  2726. ; Notes      : Could rewrite this to be somewhat more universal, but then
  2727. ;              again, why bother ;)
  2728. ; Scratch    : -
  2729. ; Author     : Matthijs Hollemans
  2730. ; History    : 21 Jan 1997
  2731. ; *****************************************************************************
  2732.  
  2733. GetStr
  2734.     movem.l    d0-d7/a0-a6,-(sp)    ; Save registers
  2735.     
  2736.     lea    Plyr_Name,a0        ; Destination address
  2737.     move.l    a0,a1            ; Store pointer
  2738.     lea    Raw2ASCII,a2        ; Translation table
  2739.     move.b    #0,d7            ; Size = 0
  2740.     move.l    #388*40+25,d6        ; Start position on screen
  2741.     PPUTCHR    #94,d6            ; Write cursor
  2742.  
  2743. .loop    bsr.w    WaitVBL            ; REPEAT
  2744.     bsr.w    GetKey            ;   Read key
  2745.     cmp.b    #KEY_NEW,KeyState    ; 
  2746.     bne.b    .loop            ; UNTIL KeyState = KEY_NEW
  2747.     
  2748.     cmp.b    #KEY_ENTER,KeyRaw    ; IF KeyRaw = KEY_ENTER
  2749.     bne.b    .noent            ;
  2750.     move.b    #0,(a1)            ;   Add NULL-character to end of string
  2751.     bra.w    .Done            ;   Finished
  2752. .noent  cmp.b    #KEY_ESC,KeyRaw        ; ELSEIF KeyRaw = KEY_ESC
  2753.     bne.b    .noesc            ;
  2754.     move.b    #0,(a0)            ;   NULL-character at start of string
  2755.     bra.w    .Done            ;   Finished
  2756. .noesc    cmp.b    #KEY_BACKSPACE,KeyRaw    ; ELSEIF KeyRaw = KEY_BACKSPACE
  2757.     bne.b    .nobs            ;
  2758.     tst.b    d7            ;   IF Size > 0
  2759.     ble.b    .endif            ; 
  2760.     subq.b    #1,d7            ;     Size -= 1
  2761.     subq.b    #1,d6            ;     Position -= 1
  2762.     subq.l    #1,a1            ;     Decrease string pointer
  2763.     bra.b    .endif            ;   ENDIF
  2764. .nobs    cmp.b    #$40,KeyRaw        ; ELSEIF (KeyRaw <= $40)
  2765.     bgt.b    .endif            ;
  2766.     cmp.b    #$10,KeyRaw        ;        AND (KeyRaw >= $10)
  2767.     blt.b    .endif            ;
  2768.     cmp.b    #MaxStrLen,d7        ;   IF Size = MaxStrLen
  2769.     bge.b    .endif            ;   THEN skip this part
  2770.     moveq    #0,d1            ;
  2771.     move.b    KeyRaw,d1        ;   Convert Raw to ASCII
  2772.     move.b    (a2,d1.w),d1        ;   
  2773.     beq.b    .endif            ;   IF ASCII=0 THEN illegal key
  2774.     move.b  d1,(a1)+        ;   Write ASCII value in string
  2775.     PPUTCHR    d1,d6            ;   Write ASCII value on screen
  2776.     addq.b    #1,d7            ;   Size += 1    
  2777.     addq.b    #1,d6            ;   Position += 1
  2778. .endif    move.l    d6,d5            ; ENDIF
  2779.     PPUTCHR    #94,d5            ; Write cursor
  2780.     add.l    #1,d5            ;
  2781.     PPUTCHR    #32,d5            ; Write empty space behind cursor
  2782.     PPUTCHR    #95,#389*40-3        ; Restore frame ;)
  2783.     bra.w    .loop            ;
  2784. .Done                    ; Finished
  2785.     movem.l    (sp)+,d0-d7/a0-a6    ; Restore registers
  2786.     rts                ;
  2787.  
  2788.  
  2789. ; =============================================================================
  2790. ;
  2791. ;                           B L I T T E R S C R E E N
  2792. ;
  2793. ; =============================================================================
  2794.  
  2795.     ALIGNLONG
  2796.     
  2797. timer         dc.l     0       ; some vbl-timers...
  2798. timer2         dc.l     0
  2799. oldtimer     dc.l     0
  2800.  
  2801. show2         equ     0    ; equ 1 show rastertiming of blitterpasses
  2802.  
  2803. ; *****************************************************************************
  2804. ; Macro's
  2805. ; *****************************************************************************
  2806.  
  2807. waitblt MACRO                ; Hardware WaitBlit()
  2808.        btst #6,$dff002         ; Old blitters said to have bug...
  2809. waitblt\@:                ;
  2810.        btst #6,$dff002            ;
  2811.        bne waitblt\@            ;
  2812.       ENDM                ;
  2813.  
  2814. ; *****************************************************************************
  2815. ; mkbltscr
  2816. ; -----------------------------------------------------------------------------
  2817. ; Inputs     : a0 = Copperlist
  2818. ;              a1 = Screen
  2819. ; Output     :
  2820. ; Description: Makes copperlist for blitterscreen.
  2821. ; Notes      : -
  2822. ; History    : ??.??.1995, Jurgen "Rally" Fischer
  2823. ;              26.12.1996, Matthijs Hollemans
  2824. ; *****************************************************************************
  2825.  
  2826.     ALIGNLONG
  2827.     
  2828. mkbltscr:
  2829.     ; Write bitplane pointers in copperlist header ------------------------
  2830.  
  2831.     move.l    #CopBpl,a2        ; a2=Position in copperlist header
  2832.     move.l    a1,d0            ; d0=Screen address
  2833.        move.w     #8-1,d7            ; Write 8 bitplanes
  2834. .mkbpl    swap    d0            ;
  2835.     move.w    d0,2(a2)        ;
  2836.     swap    d0            ;
  2837.     move.w    d0,6(a2)        ;
  2838.     addq.l    #8,a2            ; Next position in copperlist
  2839.     add.l    #320*128/8,d0        ; Next bitplane
  2840.     dbf    d7,.mkbpl        ;
  2841.  
  2842.     ; Copy copperlist header into chipmem ---------------------------------
  2843.  
  2844.     move.l    #Cop,a2            ;
  2845.     move.w    #CopEnd-Cop-1,d7    ;
  2846. .cpycop    move.b    (a2)+,(a0)+        ;
  2847.     dbf    d7,.cpycop        ;
  2848.         
  2849.     ; 2xY stuff -----------------------------------------------------------
  2850.  
  2851.        move.l     chipmem,a2         ;
  2852.      add.l     #sprbuf,a2        ; a2=Sprite buffer
  2853.        move.l     a1,d0           ; d0=Screen 
  2854.       move.l     #40,d2             ; YStart 
  2855.        move.l     #128,d3         ; Number of lines 
  2856.        move.l     #40*128,d4         ; Planesize (in bytes)
  2857.        move.l     #40,d5             ; Linesize (in bytes)
  2858.        jsr     mk2xY            ;
  2859.  
  2860.     ; End copperlist (feel free to add your own copper stuff) ------------
  2861.  
  2862.        move.l     #$fffffffe,(a0)+    
  2863.        rts
  2864.  
  2865.  
  2866. ; ****************************************************************************
  2867. ; int3
  2868. ; ----------------------------------------------------------------------------
  2869. ; Hardware-hack interrupt handler
  2870. ; ****************************************************************************
  2871.  
  2872.     ALIGNLONG
  2873.     
  2874. int3:
  2875.        btst     #6,$dff01f        ; BLIT3 set ?
  2876.        beq.b     nobltint        ; Nope, interrupt not caused by blitter
  2877.                        
  2878. bltint:
  2879.        move.w     #$0040,$dff09c        ; Clear BLIT3 
  2880.  
  2881.        movem.l d0-d1/a5/a6,-(sp)
  2882.        move.l     #$dff000,a5
  2883.        move.l     bltpc(pc),a6        ; a6 = "program counter" for blitlist
  2884.  
  2885.        IFNE     show2
  2886.        move.w     #$0ff,$dff180          ;blt reload
  2887.        ENDC
  2888.  
  2889. bltsetreg:
  2890.        move.l     (a6)+,d0
  2891.        move.w     d0,d1 
  2892.      beq.b     bltintend 
  2893.      swap     d0
  2894.        move.w     d0,0(a5,d1.w)
  2895.  
  2896.        cmp.w     #$5e,d1 
  2897.     beq.b     bltstarted
  2898.        cmp.w     #$58,d1 
  2899.      bne.b     bltsetreg
  2900. * ---
  2901. bltstarted:
  2902.        move.l a6,bltpc
  2903.        movem.l (sp)+,d0-d1/a5/a6
  2904.  
  2905.        IFNE show2
  2906.        move.w #$800,$dff180  ;blt works
  2907.        ENDC
  2908.        rte
  2909.  
  2910. bltintend:
  2911.        clr.w bltbsy
  2912.        movem.l (sp)+,d0-d1/a5/a6
  2913.  
  2914.        IFNE show2
  2915.        move.w #$000,$dff180 ;blt rdy
  2916.        ENDC
  2917.        rte
  2918.  
  2919. nobltint:                ; No blitter interrupt
  2920.        btst #5,$dff01f            ; Was it a VBL interrupt?
  2921.        bne.b vblint
  2922.        btst #4,$dff01f            ; Or a copper interrupt ?
  2923.       bne.b copint
  2924. * huh ?                    ; Fuckup !
  2925.        move.w #$3fff,$dff09c         ; kill all requests to avoid(?) delirium
  2926.        rte
  2927.  
  2928.     ALIGNLONG
  2929.     
  2930. bltpc     dc.l 0  ;pointer to blitterinstructions to be done
  2931. bltbsy     dc.w 0     ;this is 0 if all blitter-passes are done
  2932.  
  2933.     ALIGNLONG
  2934.     
  2935. vblint:
  2936.        move.w     #$0020,$dff09c        ; remove vblank interrupt
  2937.        movem.l d0-d7/a0-a6,-(sp)
  2938.  
  2939.        move.l     customvbl,a0 
  2940.      jsr     (a0)             ; CUSTOM ROUTINE HERE!
  2941.  
  2942.        add.l     #1,timer 
  2943.     add.l     #1,timer2
  2944.  
  2945.        move.w     #$0020,$dff09c
  2946.        movem.l (sp)+,d0-d7/a0-a6
  2947.        rte
  2948.  
  2949. copint: ;theoretically you never get here... copints are disabled ;)
  2950.        move.w #$0010,$dff09c        ; remove copper interrupt
  2951.        rte
  2952.  
  2953. customvbl     dc.l MyVBLHandler    ; Pointer to custom vblank routine
  2954.  
  2955.  
  2956. ; *****************************************************************************
  2957. ; mk2xY
  2958. ; -----------------------------------------------------------------------------
  2959. ; Inputs     : a0   = Copperlist
  2960. ;              a2   = Sprite Buffer (size = 312*4*2*8)
  2961. ;              d0.l = Plane0
  2962. ;              d2   = Ystart
  2963. ;              d3   = Number of lines (0-127)
  2964. ;              d4.l = Planesize
  2965. ;              d5   = Linesize
  2966. ; Output     : -
  2967. ; Description: Make a special 2x2 or 2x1 screen, needed for c2bs.
  2968. ; Notes      : All buffers in CHIP mem.
  2969. ;              2x2 or 2x1 depends on modulo/doublescan-bit in coplist header.
  2970. ;              Make sure sprites are 64-bit (fmode 3), highest priority and
  2971. ;              choose the spritebank that has got a dark color at offset 1
  2972. ;              (eg. col 1, 17, 33, ...).
  2973. ; History    : 1995, Jurgen "Rally" Fischer
  2974. ; *****************************************************************************
  2975.  
  2976.     ALIGNLONG
  2977.     
  2978. mfpoffs     dc.l 0 ;not used by caller
  2979. mfloffs     dc.l 0
  2980.  
  2981. mk2xY:
  2982.        jsr     mspr     ;gen cover-sprites in (a2)+ and copmoves in (a0)+
  2983.  
  2984. * PLANES
  2985.        movem.l d0-d7/a1-a6,-(sp)     ;a0=(ptr)copl
  2986.  
  2987.        move.l     d4,mfpoffs 
  2988.      ext.l     d5 
  2989.      move.l     d5,mfloffs
  2990.  
  2991. * gen planeptr moves
  2992.        movem.l d3/d0,-(sp)
  2993.        move.w     #$00e0,d3 
  2994.      move.w     #4-1,d7
  2995. mf256genhi:
  2996.        move.w     d3,(a0)+ 
  2997.     addq.w     #2,d3 
  2998.      move.l     d0,(a0)+  ;store hiwd ! -2(a0)
  2999.        move.w     d3,-2(a0) 
  3000.      addq.w     #2,d3 
  3001.      move.w     d0,(a0)+ ;store lowd
  3002. ;every 2nd plane same data
  3003.        move.w     d3,(a0)+ 
  3004.      addq.w     #2,d3 
  3005.      move.l     d0,(a0)+  ;store hiwd ! -2(a0)
  3006.        move.w     d3,-2(a0) 
  3007.      addq.w     #2,d3 
  3008.      move.w     d0,(a0)+ ;store lowd
  3009.  
  3010.        add.l     mfpoffs,d0
  3011.        dbra     d7,mf256genhi
  3012. * end gen ptrs
  3013.        movem.l (sp)+,d3/d0
  3014.  
  3015.        and.l     #$ff,d2 
  3016.      sub.b     #1,d2 
  3017.      ror.l     #8,d2   ;sub #1: prev line
  3018.        move.l     #$00e1fffe,d4 
  3019.      or.l     d2,d4           ;WAS: 00df
  3020. *
  3021.        move.w     d3,d5
  3022.        subq.w     #1,d5
  3023. mf256yanz:
  3024.        move.l     #$1020010,d7
  3025.       move.w     #2-1,d6
  3026. mf256do2:
  3027.        move.l     d4,(a0)+ 
  3028.      add.l     #$01000000,d4  ;cwait
  3029.        move.l     d7,(a0)+ 
  3030.      eor.l     #$00000031,d7  ;horiz shift
  3031.                      ;             ^---- 3: 1 -> 2 -> 1 -> 2 ....
  3032.        dbra     d6,mf256do2
  3033.  
  3034.        add.l     mfloffs,d0
  3035.        dbra     d5,mf256yanz
  3036.  
  3037.        movem.l (sp)+,d0-d7/a1-a6 ;a0=(ptr)copl
  3038.        rts
  3039.  
  3040.  
  3041. ; ****************************************************************************
  3042. ; mspr
  3043. ; ----------------------------------------------------------------------------
  3044. ; Inputs     : a0 = Copperlist
  3045. ;              a2 = Sprite Buffer (coplist: FMODE=$F, $dff104=$003f)
  3046. ; Output     : -
  3047. ; Description: Sprites that mask out doubleplane-data-rubbish.
  3048. ; Notes      : mksprites into sprbuf=(a2)+ and according coppermoves in (a0)+
  3049. ; History    : 1995, Jurgen "Rally" Fischer.
  3050. ; ***************************************************************************
  3051.  
  3052.     ALIGNLONG
  3053.     
  3054. mspr:
  3055.        movem.l d0-d7/a1-a6,-(sp) ;no a0! coz *copl
  3056.  
  3057.        move.l     #$00968020,(a0)+ ;rehash sprites (for safety)
  3058.  
  3059.        lea     mf2sprdat,a1
  3060.  
  3061.        move.l     a2,d0
  3062.        add.l     #15,d0
  3063.        and.l     #$fffffff0,d0
  3064.       move.l     d0,a2 ;align
  3065.  
  3066.        move.w     #$0120,d1 ;spr0pth
  3067.     
  3068.        move.w     #8-1,d7 ;sprcnt
  3069. mf2mkspr:
  3070. * cmoves for sprptr in copl
  3071.  
  3072.        move.l     a2,d0
  3073.       move.w     d1,(a0)+
  3074.        addq.w     #2,d1 ;hiptr -> loptr
  3075.        swap     d0
  3076.        move.w     d0,(a0)+
  3077.        swap     d0 ;hiwd
  3078.        move.w     d1,(a0)+
  3079.        addq.w    #2,d1 ;next sprptr
  3080.        move.w     d0,(a0)+
  3081.  
  3082. * make sprbuf
  3083.        move.l     (a1)+,(a2)+ ;ctl1
  3084.        move.l     #0,(a2)+    ;dummy for 64bit fetchmode
  3085.        move.l     (a1)+,(a2)+ ;ctl2
  3086.        move.l     #0,(a2)+    ;dummy for 64bit fetchmode
  3087.  
  3088.        move.l     (a1)+,d2
  3089.        move.l     (a1)+,d3
  3090.        move.l     d2,d4
  3091.        ror.l     #1,d4
  3092.       move.l     d3,d5
  3093.        ror.l     #1,d5
  3094.  
  3095.        move.w #128-1,d6
  3096. mf2mksprdat:
  3097.        move.l d2,(a2)+
  3098.        move.l d2,(a2)+
  3099.        move.l d3,(a2)+
  3100.        move.l d3,(a2)+
  3101. ;2nd line
  3102.        move.l d4,(a2)+
  3103.        move.l d4,(a2)+
  3104.        move.l d5,(a2)+
  3105.        move.l d5,(a2)+                ;2nd plane
  3106.  
  3107.        dbra d6,mf2mksprdat
  3108.  
  3109.     move.l #$0,(a2)+
  3110.        move.l #$0,(a2)+
  3111.       move.l #$0,(a2)+
  3112.        move.l #$0,(a2)+
  3113.  
  3114.        dbra d7,mf2mkspr
  3115.  
  3116.        movem.l (sp)+,d0-d7/a1-a6 ;ohne a0! weil *copl
  3117.        rts
  3118.  
  3119. * ctl 1, ctl 2, plane 0, plane 1 (to be lsr'd for 2nd line)
  3120. mf2sprdat:
  3121.        dc.l $28400000,$a7020000,$aaaaaaaa,$00000000
  3122.        dc.l $28600000,$a7020000,$aaaaaaaa,$00000000 ;1 & 2 nonattached, col 1 :)
  3123.        dc.l $28800000,$a7020000,$aaaaaaaa,$00000000
  3124.        dc.l $28800000,$a7820000,$00000000,$00000000
  3125.        dc.l $28a00000,$a7020000,$aaaaaaaa,$00000000
  3126.        dc.l $28a00000,$a7820000,$00000000,$00000000
  3127.        dc.l $28c00000,$a7020000,$aaaaaaaa,$00000000
  3128.        dc.l $28c00000,$a7820000,$00000000,$00000000
  3129.  
  3130.  
  3131. ; ****************************************************************************
  3132. ; c2bs
  3133. ; ----------------------------------------------------------------------------
  3134. ; Inputs     : a0   = Chunky Buffer
  3135. ;              a1   = Screen
  3136. ;              a2   = Pass Buffer (half size of chunky buffer)
  3137. ;              a3   = Scramble Buffer (at size of chunky buffer)
  3138. ;              a6   = Blitter-list Buffer (size less than 2k)
  3139. ;              d0.l = Number of chunky pixels
  3140. ;              d1.l = Plane Offset (number of bytes between planes)
  3141. ; Outputs    : -
  3142. ; Description: Non-scrambled chunky-to-planar conversion. 
  3143. ;              Not really C2P, destination is special 2x2 or 2x1 screen.
  3144. ; Notes      : All buffers in CHIP memory, except Blitter-list (a6).
  3145. ; History    : 1995, Jurgen "Rally" Fischer.
  3146. ; ****************************************************************************
  3147.  
  3148.     ALIGNLONG
  3149.     
  3150. c2bs:
  3151.  
  3152.        tst.w     bltbsy 
  3153.     bne.b     c2bs         ;for the very unlikely case your mapping-
  3154.                                ;engine renders faster than blitterc2p ;)
  3155.                                                       
  3156.        move.l     a6,bltpc     ;handler starts at bltpc
  3157.  
  3158.        movem.l d0-d1/a0-a3,-(sp)
  3159.        move.l     a3,a4 ;well....
  3160.  
  3161. *** init values
  3162.  
  3163.        move.l     #$04000096,(a6)+
  3164.       move.l     #$80400096,(a6)+
  3165.  
  3166.        move.l     #$ffff0044,(a6)+
  3167.        move.l     #$ffff0046,(a6)+
  3168.  
  3169. *** scrambling passes
  3170. ;subpass 1
  3171.       lea     (a0),a3
  3172.        move.l     a3,(a6)+ 
  3173.      move.w     #$004c,-2(a6) ;B
  3174.        move.w     a3,(a6)+ 
  3175.      move.w     #$004e,(a6)+
  3176.       lea     4(a0),a3
  3177.        move.l     a3,(a6)+ 
  3178.      move.w     #$0050,-2(a6) ;A
  3179.        move.w     a3,(a6)+ 
  3180.      move.w     #$0052,(a6)+
  3181.       lea     (a4),a3
  3182.       move.l     a3,(a6)+ 
  3183.      move.w    #$0054,-2(a6) ;D
  3184.        move.w     a3,(a6)+ 
  3185.      move.w     #$0056,(a6)+
  3186.  
  3187.        move.l #$8de40040,(a6)+
  3188.        move.l #$00000042,(a6)+
  3189.        move.l #$00ff0070,(a6)+ ;cdat
  3190.  
  3191.        move.l #$00060064,(a6)+ 
  3192.      move.l #$00060062,(a6)+ ;a/b mod
  3193.        move.l #$00060066,(a6)+ ;d mod
  3194.  
  3195.        move.l d0,d6 
  3196.     lsr.l #3,d6 ;1/4 of scr, words => /8
  3197.        move.w d6,(a6)+
  3198.        move.w #$5C,(a6)+       ;SIZV
  3199.  
  3200.        move.l #$0001005E,(a6)+ ;SIZH+start
  3201.  
  3202. ;subpass2
  3203.       lea 2(a0),a3
  3204.        move.l a3,(a6)+ 
  3205.      move.w #$004c,-2(a6) ;B
  3206.        move.w a3,(a6)+ 
  3207.      move.w #$004e,(a6)+
  3208.       lea 6(a0),a3
  3209.       move.l a3,(a6)+ 
  3210.      move.w #$0050,-2(a6) ;A
  3211.        move.w a3,(a6)+ 
  3212.     move.w #$0052,(a6)+
  3213.       lea 2(a4),a3
  3214.        move.l a3,(a6)+ 
  3215.     move.w #$0054,-2(a6) ;D
  3216.        move.w a3,(a6)+ 
  3217.      move.w #$0056,(a6)+
  3218.  
  3219.      move.l #$8de40040,(a6)+
  3220.        move.l #$00000042,(a6)+
  3221.       move.l #$00ff0070,(a6)+ ;cdat
  3222.  
  3223.        move.l #$00060064,(a6)+ 
  3224.      move.l #$00060062,(a6)+ ;a/b mod
  3225.        move.l #$00060066,(a6)+ ;d mod
  3226.  
  3227.        move.l d0,d6 
  3228.      lsr.l #3,d6 ;1/4 of scr, words => /8
  3229.        move.w d6,(a6)+
  3230.        move.w #$5C,(a6)+       ;SIZV
  3231.  
  3232.        move.l #$0001005E,(a6)+ ;SIZH+start
  3233.  
  3234. ;subpass 3
  3235.       lea -4(a0,d0.l),a3
  3236.        move.l a3,(a6)+ 
  3237.      move.w #$004c,-2(a6) ;B
  3238.        move.w a3,(a6)+ 
  3239.      move.w #$004e,(a6)+
  3240.       lea -8(a0,d0.l),a3
  3241.        move.l a3,(a6)+ 
  3242.      move.w #$0050,-2(a6) ;A
  3243.        move.w a3,(a6)+ 
  3244.      move.w #$0052,(a6)+
  3245.       lea -4(a4,d0.l),a3
  3246.        move.l a3,(a6)+ 
  3247.      move.w #$0054,-2(a6) ;D
  3248.       move.w a3,(a6)+ 
  3249.      move.w #$0056,(a6)+
  3250.  
  3251.        move.l #$8de40040,(a6)+
  3252.        move.l #$00020042,(a6)+
  3253.        move.l #$ff000070,(a6)+ ;cdat
  3254.  
  3255.        move.l #$00060064,(a6)+ 
  3256.     move.l #$00060062,(a6)+ ;a/b mod
  3257.        move.l #$00060066,(a6)+ ;d mod
  3258.  
  3259.        move.l d0,d6 
  3260.      lsr.l #3,d6 ;1/4 of scr, words => /8
  3261.       move.w d6,(a6)+
  3262.        move.w #$5C,(a6)+       ;SIZV
  3263.  
  3264.        move.l #$0001005E,(a6)+ ;SIZH+start
  3265.  
  3266. ;subpass 4
  3267.       lea -2(a0,d0.l),a3
  3268.        move.l a3,(a6)+ 
  3269.     move.w #$004c,-2(a6) ;B
  3270.        move.w a3,(a6)+ 
  3271.      move.w #$004e,(a6)+
  3272.       lea -6(a0,d0.l),a3
  3273.        move.l a3,(a6)+ 
  3274.      move.w #$0050,-2(a6) ;A
  3275.        move.w a3,(a6)+ 
  3276.      move.w #$0052,(a6)+
  3277.       lea -2(a4,d0.l),a3
  3278.        move.l a3,(a6)+ 
  3279.      move.w #$0054,-2(a6) ;D
  3280.        move.w a3,(a6)+ 
  3281.      move.w #$0056,(a6)+
  3282.  
  3283.        move.l #$8de40040,(a6)+
  3284.        move.l #$00020042,(a6)+
  3285.        move.l #$ff000070,(a6)+ ;cdat
  3286.  
  3287.        move.l #$00060064,(a6)+ 
  3288.     move.l #$00060062,(a6)+ ;a/b mod
  3289.        move.l #$00060066,(a6)+ ;d mod
  3290.  
  3291.        move.l d0,d6 
  3292.     lsr.l #3,d6 ;1/4 of scr, words => /8
  3293.        move.w d6,(a6)+
  3294.        move.w #$5C,(a6)+       ;SIZV
  3295.  
  3296.        move.l #$0001005E,(a6)+ ;SIZH+start
  3297.  
  3298. ***
  3299.        movem.l (sp)+,d0-d1/a0-a3
  3300.  
  3301.        move.l a3,a0                  ;scrambled data is now there
  3302.  
  3303. *** init values
  3304.        move.l #$04000096,(a6)+
  3305.        move.l #$80400096,(a6)+
  3306.  
  3307.        move.l #$ffff0044,(a6)+
  3308.        move.l #$ffff0046,(a6)+
  3309.  
  3310. ;offsets to end of buffers for blitter DESCing
  3311.        move.l d0,d6                   ;len of chscr
  3312.        move.l d6,d5 
  3313.      lsr.l #1,d5     ;len of buf2
  3314.        move.l d6,d4 
  3315.      lsr.l #2,d4     ;len of 1 plane = 320*128/8, ok.
  3316.  
  3317. *** Pass 1, planes 7654
  3318.  
  3319.       lea (a0),a3
  3320.        move.l a3,(a6)+ 
  3321.      move.w #$004c,-2(a6) ;B
  3322.       move.w a3,(a6)+ 
  3323.      move.w #$004e,(a6)+
  3324.       lea 2(a0),a3
  3325.        move.l a3,(a6)+ 
  3326.      move.w #$0050,-2(a6) ;A
  3327.        move.w a3,(a6)+ 
  3328.      move.w #$0052,(a6)+
  3329.  
  3330.        move.l a2,(a6)+ 
  3331.     move.w #$0054,-2(a6) ;D
  3332.        move.w a2,(a6)+ 
  3333.     move.w #$0056,(a6)+
  3334.  
  3335.        move.l #$4de40040,(a6)+
  3336.        move.l #$00000042,(a6)+
  3337.        move.l #$0f0f0070,(a6)+ ;cdat
  3338.  
  3339.        move.l #$00020064,(a6)+ 
  3340.     move.l #$00020062,(a6)+ ;a/b mod
  3341.        move.l #$00000066,(a6)+ ;d mod
  3342.  
  3343.        move.w d4,(a6)+         ;d4: nr_pix/4 (words!)
  3344.        move.w #$5C,(a6)+       ;SIZV
  3345.  
  3346.        move.l #$0001005E,(a6)+ ;SIZH+start
  3347.  
  3348. *** Pass 2, planes 76
  3349.  
  3350.       lea (a2),a3
  3351.        move.l a3,(a6)+ 
  3352.      move.w #$004c,-2(a6) ;B
  3353.       move.w a3,(a6)+ 
  3354.      move.w #$004e,(a6)+
  3355.       lea 2(a2),a3
  3356.        move.l a3,(a6)+ 
  3357.      move.w #$0050,-2(a6) ;A
  3358.        move.w a3,(a6)+ 
  3359.      move.w #$0052,(a6)+
  3360.       lea (a1),a3
  3361.       add.w d1,a3 
  3362.     add.w d1,a3 
  3363.      add.w d1,a3   ;4th "doubleplane"
  3364.       move.l a3,(a6)+ 
  3365.      move.w #$0054,-2(a6) ;D
  3366.        move.w a3,(a6)+ 
  3367.      move.w #$0056,(a6)+
  3368.  
  3369.        move.l #$2de40040,(a6)+
  3370.        move.l #$00000042,(a6)+
  3371.        move.l #$33330070,(a6)+ ;cdat
  3372.  
  3373.        move.l #$00020064,(a6)+ 
  3374.      move.l #$00020062,(a6)+ ;a/b mod
  3375.        move.l #$00000066,(a6)+ ;d mod
  3376.  
  3377.        move.w d4,d0 
  3378.      lsr.w #1,d0
  3379.        move.w d0,(a6)+         ;d4: nr_pix/8 (words!)
  3380.        move.w #$5C,(a6)+       ;SIZV
  3381.  
  3382.        move.l #$0001005E,(a6)+ ;SIZH+start
  3383.  
  3384. *** Pass 2, planes 54
  3385.  
  3386.       lea -2(a2,d5.l),a3
  3387.        move.l a3,(a6)+ 
  3388.     move.w #$004c,-2(a6) ;B
  3389.        move.w a3,(a6)+ 
  3390.      move.w #$004e,(a6)+
  3391.       lea -4(a2,d5.l),a3
  3392.        move.l a3,(a6)+ 
  3393.      move.w #$0050,-2(a6) ;A
  3394.        move.w a3,(a6)+ 
  3395.      move.w #$0052,(a6)+
  3396.       lea -2(a1,d4.l),a3
  3397.       add.w d1,a3 
  3398.      add.w d1,a3   ;3rd "doubleplane"
  3399.        move.l a3,(a6)+ 
  3400.      move.w #$0054,-2(a6) ;D
  3401.        move.w a3,(a6)+ 
  3402.      move.w #$0056,(a6)+
  3403.  
  3404.        move.l #$2de40040,(a6)+
  3405.        move.l #$00020042,(a6)+                ;DESC
  3406.       move.l #$cccc0070,(a6)+ ;cdat
  3407.  
  3408.        move.l #$00020064,(a6)+ 
  3409.      move.l #$00020062,(a6)+ ;a/b mod
  3410.        move.l #$00000066,(a6)+ ;d mod
  3411.  
  3412.        move.w d4,d0 
  3413.      lsr.w #1,d0
  3414.        move.w d0,(a6)+         ;d4: nr_pix/8 (words!)
  3415.        move.w #$5C,(a6)+       ;SIZV
  3416.  
  3417.        move.l #$0001005E,(a6)+ ;SIZH+start
  3418.  
  3419. *** Pass 1, planes 3210
  3420.  
  3421.       lea -2(a0,d6.l),a3
  3422.        move.l a3,(a6)+ 
  3423.      move.w #$004c,-2(a6) ;B
  3424.        move.w a3,(a6)+ 
  3425.      move.w #$004e,(a6)+
  3426.       lea -4(a0,d6.l),a3
  3427.        move.l a3,(a6)+ 
  3428.      move.w #$0050,-2(a6) ;A
  3429.        move.w a3,(a6)+ 
  3430.      move.w #$0052,(a6)+
  3431.        lea -2(a2,d5.l),a3
  3432.        move.l a3,(a6)+ 
  3433.      move.w #$0054,-2(a6) ;D
  3434.        move.w a3,(a6)+ 
  3435.      move.w #$0056,(a6)+
  3436.  
  3437.       move.l #$4de40040,(a6)+
  3438.        move.l #$00020042,(a6)+
  3439.        move.l #$f0f00070,(a6)+ ;cdat
  3440.  
  3441.       move.l #$00020064,(a6)+ 
  3442.      move.l #$00020062,(a6)+ ;a/b mod
  3443.        move.l #$00000066,(a6)+ ;d mod
  3444.  
  3445.        move.w d4,(a6)+         ;d4: nr_pix/4 (words!)
  3446.        move.w #$5C,(a6)+       ;SIZV
  3447.  
  3448.        move.l #$0001005E,(a6)+ ;SIZH+start
  3449.  
  3450. *** Pass 2, planes 32
  3451.  
  3452.       lea (a2),a3
  3453.        move.l a3,(a6)+ 
  3454.      move.w #$004c,-2(a6) ;B
  3455.        move.w a3,(a6)+ 
  3456.      move.w #$004e,(a6)+
  3457.       lea 2(a2),a3
  3458.        move.l a3,(a6)+ 
  3459.      move.w #$0050,-2(a6) ;A
  3460.        move.w a3,(a6)+ 
  3461.      move.w #$0052,(a6)+
  3462.       lea (a1),a3
  3463.        add.w d1,a3   ;2nd "doubleplane"
  3464.        move.l a3,(a6)+ 
  3465.      move.w #$0054,-2(a6) ;D
  3466.        move.w a3,(a6)+ 
  3467.      move.w #$0056,(a6)+
  3468.  
  3469.        move.l #$2de40040,(a6)+
  3470.        move.l #$00000042,(a6)+
  3471.        move.l #$33330070,(a6)+ ;cdat
  3472.  
  3473.        move.l #$00020064,(a6)+ 
  3474.      move.l #$00020062,(a6)+ ;a/b mod
  3475.        move.l #$00000066,(a6)+ ;d mod
  3476.  
  3477.       move.w d4,d0 
  3478.      lsr.w #1,d0
  3479.        move.w d0,(a6)+         ;d4: nr_pix/8 (words!)
  3480.        move.w #$5C,(a6)+       ;SIZV
  3481.  
  3482.        move.l #$0001005E,(a6)+ ;SIZH+start
  3483.  
  3484. *** Pass 2, planes 10
  3485.  
  3486.       lea -2(a2,d5.l),a3
  3487.        move.l a3,(a6)+ 
  3488.      move.w #$004c,-2(a6) ;B
  3489.        move.w a3,(a6)+ 
  3490.      move.w #$004e,(a6)+
  3491.       lea -4(a2,d5.l),a3
  3492.        move.l a3,(a6)+ 
  3493.      move.w #$0050,-2(a6) ;A
  3494.       move.w a3,(a6)+ 
  3495.      move.w #$0052,(a6)+
  3496.       lea -2(a1,d4.l),a3
  3497.          ;1st "doubleplane"
  3498.        move.l a3,(a6)+ 
  3499.     move.w #$0054,-2(a6) ;D
  3500.        move.w a3,(a6)+ 
  3501.      move.w #$0056,(a6)+
  3502.  
  3503.        move.l #$2de40040,(a6)+
  3504.        move.l #$00020042,(a6)+                ;DESC
  3505.        move.l #$cccc0070,(a6)+ ;cdat
  3506.  
  3507.        move.l #$00020064,(a6)+ 
  3508.      move.l #$00020062,(a6)+ ;a/b mod
  3509.        move.l #$00000066,(a6)+ ;d mod
  3510.  
  3511.        move.w d4,d0 
  3512.      lsr.w #1,d0
  3513.        move.w d0,(a6)+         ;d4: nr_pix/8 (words!)
  3514.        move.w #$5C,(a6)+       ;SIZV
  3515.  
  3516.        move.l #$0001005E,(a6)+ ;SIZH+start
  3517.  
  3518. *** end of initblit
  3519.        move.l #0,(a6)+
  3520.  
  3521.        move.w #1,bltbsy ;!!!
  3522.        waitblt
  3523.        move.w #$8040,$dff09c ;activate blit intreq
  3524.        rts
  3525.  
  3526.  
  3527. ; =============================================================================
  3528. ;
  3529. ;                            M U S I C   P L A Y E R
  3530. ;
  3531. ; =============================================================================
  3532.  
  3533. ;**************************************************
  3534. ;*    ----- Protracker V2.3A Playroutine -----    *
  3535. ;**************************************************
  3536.  
  3537. DMAWait = 200 ; Set this as low as possible without losing low notes.
  3538.  
  3539. ; CIA Version 1:
  3540. ; Call SetCIAInt to install the interrupt server. Then call mt_init
  3541. ; to initialize the song. Playback starts when the mt_enable flag
  3542. ; is set to a nonzero value. To end the song and turn off all voices,
  3543. ; call mt_end. At last, call ResetCIAInt to remove the interrupt.
  3544.  
  3545. ; This playroutine is not very fast, optimized or well commented,
  3546. ; but all the new commands in PT2.3 should work.
  3547. ; If it's not good enough, you'll have to change it yourself.
  3548. ; We'll try to write a faster routine soon...
  3549.  
  3550. ; Changes from V1.0C playroutine:
  3551. ; - Vibrato depth changed to be compatible with Noisetracker 2.0.
  3552. ;   You'll have to double all vib. depths on old PT modules.
  3553. ; - Funk Repeat changed to Invert Loop.
  3554. ; - Period set back earlier when stopping an effect.
  3555.  
  3556. ;---- CIA Interrupt ----
  3557.  
  3558. AddICRVector    =   -6
  3559. RemICRVector    =  -12
  3560. LVOOpenResource    = -498
  3561. LVOOpenLibrary     = -552
  3562. LVOCloseLibrary    = -414
  3563. LVODelay    = -198
  3564.  
  3565. ciatalo = $400
  3566. ciatahi = $500
  3567. ciatblo = $600
  3568. ciatbhi = $700
  3569. ciacra  = $E00
  3570. ciacrb  = $F00
  3571.  
  3572. SetCIAInt
  3573.     MOVEQ    #2,D6
  3574.     LEA    $BFD000,A5
  3575.     MOVE.B    #'b',CIAAname+3
  3576. SetCIALoop
  3577.     MOVEQ    #0,D0
  3578.     LEA    CIAAname(PC),A1
  3579.     MOVE.L    4.W,A6
  3580.     JSR    LVOOpenResource(A6)
  3581.     MOVE.L    D0,CIAAbase
  3582.     BEQ.W    mt_Return
  3583.  
  3584.     LEA    GfxName(PC),A1
  3585.     MOVEQ    #0,D0
  3586.     JSR    LVOOpenLibrary(A6)
  3587.     TST.L    D0
  3588.     BEQ.W    ResetCIAInt
  3589.     MOVE.L    D0,A1
  3590.     MOVE.W    206(A1),D0    ; DisplayFlags
  3591.     BTST    #2,D0        ; PAL?
  3592.     BEQ.S    WasNTSC
  3593.     MOVE.L    #1773447,D7 ; PAL
  3594.     BRA.S    sciask
  3595. WasNTSC    MOVE.L    #1789773,D7 ; NTSC
  3596. sciask    MOVE.L    D7,TimerValue
  3597.     DIVU    #125,D7 ; Default to normal 50 Hz timer
  3598.     JSR    LVOCloseLibrary(A6)
  3599.  
  3600.     MOVE.L    CIAAbase(PC),A6
  3601.     CMP.W    #2,D6
  3602.     BEQ.S    TryTimerA
  3603. TryTimerB
  3604.     LEA    MusicIntServer(PC),A1
  3605.     MOVEQ    #1,D0    ; Bit 1: Timer B
  3606.     JSR    AddICRVector(A6)
  3607.     MOVE.L    #1,TimerFlag
  3608.     TST.L    D0
  3609.     BNE.S    CIAError
  3610.     MOVE.L    A5,CIAAaddr
  3611.     MOVE.B    D7,ciatblo(A5)
  3612.     LSR.W    #8,D7
  3613.     MOVE.B    D7,ciatbhi(A5)
  3614.     BSET    #0,ciacrb(A5)
  3615.     RTS
  3616.  
  3617. TryTimerA
  3618.     LEA    MusicIntServer(PC),A1
  3619.     MOVEQ    #0,D0    ; Bit 0: Timer A
  3620.     JSR    AddICRVector(A6)
  3621.     CLR.L    TimerFlag
  3622.     TST.L    D0
  3623.     BNE.S    CIAError
  3624.     MOVE.L    A5,CIAAaddr
  3625.     MOVE.B    D7,ciatalo(A5)
  3626.     LSR.W    #8,D7
  3627.     MOVE.B    D7,ciatahi(A5)
  3628.     BSET    #0,ciacra(A5)
  3629.     RTS
  3630.  
  3631. CIAError
  3632.     MOVE.B    #'a',CIAAname+3
  3633.     LEA    $BFE001,A5
  3634.     SUBQ.W    #1,D6
  3635.     BNE.W    SetCIALoop
  3636.     CLR.L    CIAAbase
  3637.     RTS
  3638.  
  3639. ResetCIAInt
  3640.     MOVE.L    CIAAbase(PC),D0
  3641.     BEQ.W    mt_Return
  3642.     CLR.L    CIAAbase
  3643.     MOVE.L    D0,A6
  3644.     MOVE.L    CIAAaddr(PC),A5
  3645.     TST.L    TimerFlag
  3646.     BEQ.S    ResTimerA
  3647.  
  3648.     BCLR    #0,ciacrb(A5)
  3649.     MOVEQ    #1,D0
  3650.     BRA.S    RemInt
  3651.  
  3652. ResTimerA
  3653.     BCLR    #0,ciacra(A5)
  3654.     MOVEQ    #0,D0
  3655. RemInt    LEA    MusicIntServer(PC),A1
  3656.     MOVEQ    #0,d0
  3657.     JSR    RemICRVector(A6)
  3658.     RTS
  3659.  
  3660. ;---- Tempo ----
  3661.  
  3662. SetTempo
  3663.     MOVE.L    CIAAbase(PC),D2
  3664.     BEQ.W    mt_Return
  3665.     CMP.W    #32,D0
  3666.     BHS.S    setemsk
  3667.     MOVEQ    #32,D0
  3668. setemsk    MOVE.W    D0,RealTempo
  3669.     MOVE.L    TimerValue(PC),D2
  3670.     DIVU    D0,D2
  3671.     MOVE.L    CIAAaddr(PC),A4
  3672.     MOVE.L    TimerFlag(PC),D0
  3673.     BEQ.S    SetTemA
  3674.     MOVE.B    D2,ciatblo(A4)
  3675.     LSR.W    #8,D2
  3676.     MOVE.B    D2,ciatbhi(A4)
  3677.     RTS
  3678.  
  3679. SetTemA    MOVE.B    D2,ciatalo(A4)
  3680.     LSR.W    #8,D2
  3681.     MOVE.B    D2,ciatahi(A4)
  3682.     RTS
  3683.  
  3684. RealTempo    dc.w 125
  3685. CIAAaddr    dc.l 0
  3686. CIAAname    dc.b "ciaa.resource",0
  3687. CIAAbase    dc.l 0
  3688. TimerFlag    dc.l 0
  3689. TimerValue    dc.l 0
  3690. GfxName        dc.b "graphics.library",0,0
  3691.  
  3692. MusicIntServer
  3693.     dc.l 0,0
  3694.     dc.b 2,5 ; type, priority
  3695.     dc.l musintname
  3696.     dc.l 0,mt_music
  3697.  
  3698. musintname    dc.b "Protracker MusicInt",0
  3699.  
  3700. ;---- Playroutine ----
  3701.  
  3702. n_note        EQU    0  ; W
  3703. n_cmd        EQU    2  ; W
  3704. n_cmdlo        EQU    3  ; B
  3705. n_start        EQU    4  ; L
  3706. n_length    EQU    8  ; W
  3707. n_loopstart    EQU    10 ; L
  3708. n_replen    EQU    14 ; W
  3709. n_period    EQU    16 ; W
  3710. n_finetune    EQU    18 ; B
  3711. n_volume    EQU    19 ; B
  3712. n_dmabit    EQU    20 ; W
  3713. n_toneportdirec    EQU    22 ; B
  3714. n_toneportspeed    EQU    23 ; B
  3715. n_wantedperiod    EQU    24 ; W
  3716. n_vibratocmd    EQU    26 ; B
  3717. n_vibratopos    EQU    27 ; B
  3718. n_tremolocmd    EQU    28 ; B
  3719. n_tremolopos    EQU    29 ; B
  3720. n_wavecontrol    EQU    30 ; B
  3721. n_glissfunk    EQU    31 ; B
  3722. n_sampleoffset    EQU    32 ; B
  3723. n_pattpos    EQU    33 ; B
  3724. n_loopcount    EQU    34 ; B
  3725. n_funkoffset    EQU    35 ; B
  3726. n_wavestart    EQU    36 ; L
  3727. n_reallength    EQU    40 ; W
  3728.  
  3729.     ALIGNLONG
  3730. mt_data    dc.l    0
  3731.  
  3732. mt_init    
  3733.     move.l    mt_data,a0        ; Altered by me...allows for multiple
  3734.     MOVE.L    A0,mt_SongDataPtr    ; modules in one source.
  3735.     MOVE.L    A0,A1
  3736.     LEA    952(A1),A1
  3737.     MOVEQ    #127,D0
  3738.     MOVEQ    #0,D1
  3739. mtloop    MOVE.L    D1,D2
  3740.     SUBQ.W    #1,D0
  3741. mtloop2    MOVE.B    (A1)+,D1
  3742.     CMP.B    D2,D1
  3743.     BGT.S    mtloop
  3744.     DBRA    D0,mtloop2
  3745.     ADDQ.B    #1,D2
  3746.             
  3747.     LEA    mt_SampleStarts(PC),A1
  3748.     ASL.L    #8,D2
  3749.     ASL.L    #2,D2
  3750.     ADD.L    #1084,D2
  3751.     ADD.L    A0,D2
  3752.     MOVE.L    D2,A2
  3753.     MOVEQ    #30,D0
  3754. mtloop3    CLR.L    (A2)
  3755.     MOVE.L    A2,(A1)+
  3756.     MOVEQ    #0,D1
  3757.     MOVE.W    42(A0),D1
  3758.     ASL.L    #1,D1
  3759.     ADD.L    D1,A2
  3760.     ADD.L    #30,A0
  3761.     DBRA    D0,mtloop3
  3762.  
  3763.     OR.B    #2,$BFE001
  3764.     MOVE.B    #6,mt_speed
  3765.     CLR.B    mt_counter
  3766.     CLR.B    mt_SongPos
  3767.     CLR.W    mt_PatternPos
  3768. mt_end    SF    mt_Enable
  3769.     LEA    $DFF000,A0
  3770.     CLR.W    $A8(A0)
  3771.     CLR.W    $B8(A0)
  3772.     CLR.W    $C8(A0)
  3773.     CLR.W    $D8(A0)
  3774.     MOVE.W    #$F,$DFF096
  3775.     RTS
  3776.  
  3777.     ALIGNLONG
  3778.     
  3779. mt_music
  3780.     MOVEM.L    D0-D4/A0-A6,-(SP)
  3781.     TST.B    mt_Enable
  3782.     BEQ.W    mt_exit
  3783.     ADDQ.B    #1,mt_counter
  3784.     MOVE.B    mt_counter(PC),D0
  3785.     CMP.B    mt_speed(PC),D0
  3786.     BLO.S    mt_NoNewNote
  3787.     CLR.B    mt_counter
  3788.     TST.B    mt_PattDelTime2
  3789.     BEQ.S    mt_GetNewNote
  3790.     BSR.S    mt_NoNewAllChannels
  3791.     BRA.W    mt_dskip
  3792.  
  3793. mt_NoNewNote
  3794.     BSR.S    mt_NoNewAllChannels
  3795.     BRA.W    mt_NoNewPosYet
  3796.  
  3797. mt_NoNewAllChannels
  3798.     LEA    $DFF0A0,A5
  3799.     LEA    mt_chan1temp(PC),A6
  3800.     BSR.W    mt_CheckEfx
  3801.     LEA    $DFF0B0,A5
  3802.     LEA    mt_chan2temp(PC),A6
  3803.     BSR.W    mt_CheckEfx
  3804.     LEA    $DFF0C0,A5
  3805.     LEA    mt_chan3temp(PC),A6
  3806.     BSR.W    mt_CheckEfx
  3807.     LEA    $DFF0D0,A5
  3808.     LEA    mt_chan4temp(PC),A6
  3809.     BRA.W    mt_CheckEfx
  3810.  
  3811. mt_GetNewNote
  3812.     MOVE.L    mt_SongDataPtr(PC),A0
  3813.     LEA    12(A0),A3
  3814.     LEA    952(A0),A2    ;pattpo
  3815.     LEA    1084(A0),A0    ;patterndata
  3816.     MOVEQ    #0,D0
  3817.     MOVEQ    #0,D1
  3818.     MOVE.B    mt_SongPos(PC),D0
  3819.     MOVE.B    (A2,D0.W),D1
  3820.     ASL.L    #8,D1
  3821.     ASL.L    #2,D1
  3822.     ADD.W    mt_PatternPos(PC),D1
  3823.     CLR.W    mt_DMACONtemp
  3824.  
  3825.     LEA    $DFF0A0,A5
  3826.     LEA    mt_chan1temp(PC),A6
  3827.     BSR.S    mt_PlayVoice
  3828.     LEA    $DFF0B0,A5
  3829.     LEA    mt_chan2temp(PC),A6
  3830.     BSR.S    mt_PlayVoice
  3831.     LEA    $DFF0C0,A5
  3832.     LEA    mt_chan3temp(PC),A6
  3833.     BSR.S    mt_PlayVoice
  3834.     LEA    $DFF0D0,A5
  3835.     LEA    mt_chan4temp(PC),A6
  3836.     BSR.S    mt_PlayVoice
  3837.     BRA.W    mt_SetDMA
  3838.  
  3839. mt_PlayVoice
  3840.     TST.L    (A6)
  3841.     BNE.S    mt_plvskip
  3842.     BSR.W    mt_PerNop
  3843. mt_plvskip
  3844.     MOVE.L    (A0,D1.L),(A6)
  3845.     ADDQ.L    #4,D1
  3846.     MOVEQ    #0,D2
  3847.     MOVE.B    n_cmd(A6),D2
  3848.     AND.B    #$F0,D2
  3849.     LSR.B    #4,D2
  3850.     MOVE.B    (A6),D0
  3851.     AND.B    #$F0,D0
  3852.     OR.B    D0,D2
  3853.     TST.B    D2
  3854.     BEQ.W    mt_SetRegs
  3855.     MOVEQ    #0,D3
  3856.     LEA    mt_SampleStarts(PC),A1
  3857.     MOVE    D2,D4
  3858.     SUBQ.L    #1,D2
  3859.     ASL.L    #2,D2
  3860.     MULU    #30,D4
  3861.     MOVE.L    (A1,D2.L),n_start(A6)
  3862.     MOVE.W    (A3,D4.L),n_length(A6)
  3863.     MOVE.W    (A3,D4.L),n_reallength(A6)
  3864.     MOVE.B    2(A3,D4.L),n_finetune(A6)
  3865.     MOVE.B    3(A3,D4.L),n_volume(A6)
  3866.     MOVE.W    4(A3,D4.L),D3 ; Get repeat
  3867.     TST.W    D3
  3868.     BEQ.S    mt_NoLoop
  3869.     MOVE.L    n_start(A6),D2    ; Get start
  3870.     ASL.W    #1,D3
  3871.     ADD.L    D3,D2        ; Add repeat
  3872.     MOVE.L    D2,n_loopstart(A6)
  3873.     MOVE.L    D2,n_wavestart(A6)
  3874.     MOVE.W    4(A3,D4.L),D0    ; Get repeat
  3875.     ADD.W    6(A3,D4.L),D0    ; Add replen
  3876.     MOVE.W    D0,n_length(A6)
  3877.     MOVE.W    6(A3,D4.L),n_replen(A6)    ; Save replen
  3878.     MOVEQ    #0,D0
  3879.     MOVE.B    n_volume(A6),D0
  3880.     MOVE.W    D0,8(A5)    ; Set volume
  3881.     BRA.S    mt_SetRegs
  3882.  
  3883. mt_NoLoop
  3884.     MOVE.L    n_start(A6),D2
  3885.     ADD.L    D3,D2
  3886.     MOVE.L    D2,n_loopstart(A6)
  3887.     MOVE.L    D2,n_wavestart(A6)
  3888.     MOVE.W    6(A3,D4.L),n_replen(A6)    ; Save replen
  3889.     MOVEQ    #0,D0
  3890.     MOVE.B    n_volume(A6),D0
  3891.     MOVE.W    D0,8(A5)    ; Set volume
  3892. mt_SetRegs
  3893.     MOVE.W    (A6),D0
  3894.     AND.W    #$0FFF,D0
  3895.     BEQ.W    mt_CheckMoreEfx    ; If no note
  3896.     MOVE.W    2(A6),D0
  3897.     AND.W    #$0FF0,D0
  3898.     CMP.W    #$0E50,D0
  3899.     BEQ.S    mt_DoSetFineTune
  3900.     MOVE.B    2(A6),D0
  3901.     AND.B    #$0F,D0
  3902.     CMP.B    #3,D0    ; TonePortamento
  3903.     BEQ.S    mt_ChkTonePorta
  3904.     CMP.B    #5,D0
  3905.     BEQ.S    mt_ChkTonePorta
  3906.     CMP.B    #9,D0    ; Sample Offset
  3907.     BNE.S    mt_SetPeriod
  3908.     BSR.W    mt_CheckMoreEfx
  3909.     BRA.S    mt_SetPeriod
  3910.  
  3911. mt_DoSetFineTune
  3912.     BSR.W    mt_SetFineTune
  3913.     BRA.S    mt_SetPeriod
  3914.  
  3915. mt_ChkTonePorta
  3916.     BSR.W    mt_SetTonePorta
  3917.     BRA.W    mt_CheckMoreEfx
  3918.  
  3919. mt_SetPeriod
  3920.     MOVEM.L    D0-D1/A0-A1,-(SP)
  3921.     MOVE.W    (A6),D1
  3922.     AND.W    #$0FFF,D1
  3923.     LEA    mt_PeriodTable(PC),A1
  3924.     MOVEQ    #0,D0
  3925.     MOVEQ    #36,D2
  3926. mt_ftuloop
  3927.     CMP.W    (A1,D0.W),D1
  3928.     BHS.S    mt_ftufound
  3929.     ADDQ.L    #2,D0
  3930.     DBRA    D2,mt_ftuloop
  3931. mt_ftufound
  3932.     MOVEQ    #0,D1
  3933.     MOVE.B    n_finetune(A6),D1
  3934.     MULU    #36*2,D1
  3935.     ADD.L    D1,A1
  3936.     MOVE.W    (A1,D0.W),n_period(A6)
  3937.     MOVEM.L    (SP)+,D0-D1/A0-A1
  3938.  
  3939.     MOVE.W    2(A6),D0
  3940.     AND.W    #$0FF0,D0
  3941.     CMP.W    #$0ED0,D0 ; Notedelay
  3942.     BEQ.W    mt_CheckMoreEfx
  3943.  
  3944.     MOVE.W    n_dmabit(A6),$DFF096
  3945.     BTST    #2,n_wavecontrol(A6)
  3946.     BNE.S    mt_vibnoc
  3947.     CLR.B    n_vibratopos(A6)
  3948. mt_vibnoc
  3949.     BTST    #6,n_wavecontrol(A6)
  3950.     BNE.S    mt_trenoc
  3951.     CLR.B    n_tremolopos(A6)
  3952. mt_trenoc
  3953.     MOVE.L    n_start(A6),(A5)    ; Set start
  3954.     MOVE.W    n_length(A6),4(A5)    ; Set length
  3955.     MOVE.W    n_period(A6),D0
  3956.     MOVE.W    D0,6(A5)        ; Set period
  3957.     MOVE.W    n_dmabit(A6),D0
  3958.     OR.W    D0,mt_DMACONtemp
  3959.     BRA.W    mt_CheckMoreEfx
  3960.  
  3961. mt_SetDMA
  3962.     MOVE.W    #300,D0
  3963. mt_WaitDMA
  3964.     DBRA    D0,mt_WaitDMA
  3965.     MOVE.W    mt_DMACONtemp(PC),D0
  3966.     OR.W    #$8000,D0
  3967.     MOVE.W    D0,$DFF096
  3968.     MOVE.W    #300,D0
  3969. mt_WaitDMA2
  3970.     DBRA    D0,mt_WaitDMA2
  3971.  
  3972.     LEA    $DFF000,A5
  3973.     LEA    mt_chan4temp(PC),A6
  3974.     MOVE.L    n_loopstart(A6),$D0(A5)
  3975.     MOVE.W    n_replen(A6),$D4(A5)
  3976.     LEA    mt_chan3temp(PC),A6
  3977.     MOVE.L    n_loopstart(A6),$C0(A5)
  3978.     MOVE.W    n_replen(A6),$C4(A5)
  3979.     LEA    mt_chan2temp(PC),A6
  3980.     MOVE.L    n_loopstart(A6),$B0(A5)
  3981.     MOVE.W    n_replen(A6),$B4(A5)
  3982.     LEA    mt_chan1temp(PC),A6
  3983.     MOVE.L    n_loopstart(A6),$A0(A5)
  3984.     MOVE.W    n_replen(A6),$A4(A5)
  3985.  
  3986. mt_dskip
  3987.     ADD.W    #16,mt_PatternPos
  3988.     MOVE.B    mt_PattDelTime,D0
  3989.     BEQ.S    mt_dskc
  3990.     MOVE.B    D0,mt_PattDelTime2
  3991.     CLR.B    mt_PattDelTime
  3992. mt_dskc    TST.B    mt_PattDelTime2
  3993.     BEQ.S    mt_dska
  3994.     SUBQ.B    #1,mt_PattDelTime2
  3995.     BEQ.S    mt_dska
  3996.     SUB.W    #16,mt_PatternPos
  3997. mt_dska    TST.B    mt_PBreakFlag
  3998.     BEQ.S    mt_nnpysk
  3999.     SF    mt_PBreakFlag
  4000.     MOVEQ    #0,D0
  4001.     MOVE.B    mt_PBreakPos(PC),D0
  4002.     CLR.B    mt_PBreakPos
  4003.     LSL.W    #4,D0
  4004.     MOVE.W    D0,mt_PatternPos
  4005. mt_nnpysk
  4006.     CMP.W    #1024,mt_PatternPos
  4007.     BLO.S    mt_NoNewPosYet
  4008. mt_NextPosition    
  4009.     MOVEQ    #0,D0
  4010.     MOVE.B    mt_PBreakPos(PC),D0
  4011.     LSL.W    #4,D0
  4012.     MOVE.W    D0,mt_PatternPos
  4013.     CLR.B    mt_PBreakPos
  4014.     CLR.B    mt_PosJumpFlag
  4015.     ADDQ.B    #1,mt_SongPos
  4016.     AND.B    #$7F,mt_SongPos
  4017.     MOVE.B    mt_SongPos(PC),D1
  4018.     MOVE.L    mt_SongDataPtr(PC),A0
  4019.     CMP.B    950(A0),D1
  4020.     BLO.S    mt_NoNewPosYet
  4021.     CLR.B    mt_SongPos
  4022. mt_NoNewPosYet    
  4023.     TST.B    mt_PosJumpFlag
  4024.     BNE.S    mt_NextPosition
  4025. mt_exit    MOVEM.L    (SP)+,D0-D4/A0-A6
  4026.     RTS
  4027.  
  4028. mt_CheckEfx
  4029.     BSR.W    mt_UpdateFunk
  4030.     MOVE.W    n_cmd(A6),D0
  4031.     AND.W    #$0FFF,D0
  4032.     BEQ.S    mt_PerNop
  4033.     MOVE.B    n_cmd(A6),D0
  4034.     AND.B    #$0F,D0
  4035.     BEQ.S    mt_Arpeggio
  4036.     CMP.B    #1,D0
  4037.     BEQ.W    mt_PortaUp
  4038.     CMP.B    #2,D0
  4039.     BEQ.W    mt_PortaDown
  4040.     CMP.B    #3,D0
  4041.     BEQ.W    mt_TonePortamento
  4042.     CMP.B    #4,D0
  4043.     BEQ.W    mt_Vibrato
  4044.     CMP.B    #5,D0
  4045.     BEQ.W    mt_TonePlusVolSlide
  4046.     CMP.B    #6,D0
  4047.     BEQ.W    mt_VibratoPlusVolSlide
  4048.     CMP.B    #$E,D0
  4049.     BEQ.W    mt_E_Commands
  4050. SetBack    MOVE.W    n_period(A6),6(A5)
  4051.     CMP.B    #7,D0
  4052.     BEQ.W    mt_Tremolo
  4053.     CMP.B    #$A,D0
  4054.     BEQ.W    mt_VolumeSlide
  4055. mt_Return
  4056.     RTS
  4057.  
  4058. mt_PerNop
  4059.     MOVE.W    n_period(A6),6(A5)
  4060.     RTS
  4061.  
  4062. mt_Arpeggio
  4063.     MOVEQ    #0,D0
  4064.     MOVE.B    mt_counter(PC),D0
  4065.     DIVS    #3,D0
  4066.     SWAP    D0
  4067.     CMP.W    #0,D0
  4068.     BEQ.S    mt_Arpeggio2
  4069.     CMP.W    #2,D0
  4070.     BEQ.S    mt_Arpeggio1
  4071.     MOVEQ    #0,D0
  4072.     MOVE.B    n_cmdlo(A6),D0
  4073.     LSR.B    #4,D0
  4074.     BRA.S    mt_Arpeggio3
  4075.  
  4076. mt_Arpeggio1
  4077.     MOVEQ    #0,D0
  4078.     MOVE.B    n_cmdlo(A6),D0
  4079.     AND.B    #15,D0
  4080.     BRA.S    mt_Arpeggio3
  4081.  
  4082. mt_Arpeggio2
  4083.     MOVE.W    n_period(A6),D2
  4084.     BRA.S    mt_Arpeggio4
  4085.  
  4086. mt_Arpeggio3
  4087.     ASL.W    #1,D0
  4088.     MOVEQ    #0,D1
  4089.     MOVE.B    n_finetune(A6),D1
  4090.     MULU    #36*2,D1
  4091.     LEA    mt_PeriodTable(PC),A0
  4092.     ADD.L    D1,A0
  4093.     MOVEQ    #0,D1
  4094.     MOVE.W    n_period(A6),D1
  4095.     MOVEQ    #36,D3
  4096. mt_arploop
  4097.     MOVE.W    (A0,D0.W),D2
  4098.     CMP.W    (A0),D1
  4099.     BHS.S    mt_Arpeggio4
  4100.     ADDQ.L    #2,A0
  4101.     DBRA    D3,mt_arploop
  4102.     RTS
  4103.  
  4104. mt_Arpeggio4
  4105.     MOVE.W    D2,6(A5)
  4106.     RTS
  4107.  
  4108. mt_FinePortaUp
  4109.     TST.B    mt_counter
  4110.     BNE.S    mt_Return
  4111.     MOVE.B    #$0F,mt_LowMask
  4112. mt_PortaUp
  4113.     MOVEQ    #0,D0
  4114.     MOVE.B    n_cmdlo(A6),D0
  4115.     AND.B    mt_LowMask(PC),D0
  4116.     MOVE.B    #$FF,mt_LowMask
  4117.     SUB.W    D0,n_period(A6)
  4118.     MOVE.W    n_period(A6),D0
  4119.     AND.W    #$0FFF,D0
  4120.     CMP.W    #113,D0
  4121.     BPL.S    mt_PortaUskip
  4122.     AND.W    #$F000,n_period(A6)
  4123.     OR.W    #113,n_period(A6)
  4124. mt_PortaUskip
  4125.     MOVE.W    n_period(A6),D0
  4126.     AND.W    #$0FFF,D0
  4127.     MOVE.W    D0,6(A5)
  4128.     RTS    
  4129.  
  4130. mt_FinePortaDown
  4131.     TST.B    mt_counter
  4132.     BNE.W    mt_Return
  4133.     MOVE.B    #$0F,mt_LowMask
  4134. mt_PortaDown
  4135.     CLR.W    D0
  4136.     MOVE.B    n_cmdlo(A6),D0
  4137.     AND.B    mt_LowMask(PC),D0
  4138.     MOVE.B    #$FF,mt_LowMask
  4139.     ADD.W    D0,n_period(A6)
  4140.     MOVE.W    n_period(A6),D0
  4141.     AND.W    #$0FFF,D0
  4142.     CMP.W    #856,D0
  4143.     BMI.S    mt_PortaDskip
  4144.     AND.W    #$F000,n_period(A6)
  4145.     OR.W    #856,n_period(A6)
  4146. mt_PortaDskip
  4147.     MOVE.W    n_period(A6),D0
  4148.     AND.W    #$0FFF,D0
  4149.     MOVE.W    D0,6(A5)
  4150.     RTS
  4151.  
  4152. mt_SetTonePorta
  4153.     MOVE.L    A0,-(SP)
  4154.     MOVE.W    (A6),D2
  4155.     AND.W    #$0FFF,D2
  4156.     MOVEQ    #0,D0
  4157.     MOVE.B    n_finetune(A6),D0
  4158.     MULU    #36*2,D0 ;37?
  4159.     LEA    mt_PeriodTable(PC),A0
  4160.     ADD.L    D0,A0
  4161.     MOVEQ    #0,D0
  4162. mt_StpLoop
  4163.     CMP.W    (A0,D0.W),D2
  4164.     BHS.S    mt_StpFound
  4165.     ADDQ.W    #2,D0
  4166.     CMP.W    #36*2,D0 ;37?
  4167.     BLO.S    mt_StpLoop
  4168.     MOVEQ    #35*2,D0
  4169. mt_StpFound
  4170.     MOVE.B    n_finetune(A6),D2
  4171.     AND.B    #8,D2
  4172.     BEQ.S    mt_StpGoss
  4173.     TST.W    D0
  4174.     BEQ.S    mt_StpGoss
  4175.     SUBQ.W    #2,D0
  4176. mt_StpGoss
  4177.     MOVE.W    (A0,D0.W),D2
  4178.     MOVE.L    (SP)+,A0
  4179.     MOVE.W    D2,n_wantedperiod(A6)
  4180.     MOVE.W    n_period(A6),D0
  4181.     CLR.B    n_toneportdirec(A6)
  4182.     CMP.W    D0,D2
  4183.     BEQ.S    mt_ClearTonePorta
  4184.     BGE.W    mt_Return
  4185.     MOVE.B    #1,n_toneportdirec(A6)
  4186.     RTS
  4187.  
  4188. mt_ClearTonePorta
  4189.     CLR.W    n_wantedperiod(A6)
  4190.     RTS
  4191.  
  4192. mt_TonePortamento
  4193.     MOVE.B    n_cmdlo(A6),D0
  4194.     BEQ.S    mt_TonePortNoChange
  4195.     MOVE.B    D0,n_toneportspeed(A6)
  4196.     CLR.B    n_cmdlo(A6)
  4197. mt_TonePortNoChange
  4198.     TST.W    n_wantedperiod(A6)
  4199.     BEQ.W    mt_Return
  4200.     MOVEQ    #0,D0
  4201.     MOVE.B    n_toneportspeed(A6),D0
  4202.     TST.B    n_toneportdirec(A6)
  4203.     BNE.S    mt_TonePortaUp
  4204. mt_TonePortaDown
  4205.     ADD.W    D0,n_period(A6)
  4206.     MOVE.W    n_wantedperiod(A6),D0
  4207.     CMP.W    n_period(A6),D0
  4208.     BGT.S    mt_TonePortaSetPer
  4209.     MOVE.W    n_wantedperiod(A6),n_period(A6)
  4210.     CLR.W    n_wantedperiod(A6)
  4211.     BRA.S    mt_TonePortaSetPer
  4212.  
  4213. mt_TonePortaUp
  4214.     SUB.W    D0,n_period(A6)
  4215.     MOVE.W    n_wantedperiod(A6),D0
  4216.     CMP.W    n_period(A6),D0
  4217.     BLT.S    mt_TonePortaSetPer
  4218.     MOVE.W    n_wantedperiod(A6),n_period(A6)
  4219.     CLR.W    n_wantedperiod(A6)
  4220.  
  4221. mt_TonePortaSetPer
  4222.     MOVE.W    n_period(A6),D2
  4223.     MOVE.B    n_glissfunk(A6),D0
  4224.     AND.B    #$0F,D0
  4225.     BEQ.S    mt_GlissSkip
  4226.     MOVEQ    #0,D0
  4227.     MOVE.B    n_finetune(A6),D0
  4228.     MULU    #36*2,D0
  4229.     LEA    mt_PeriodTable(PC),A0
  4230.     ADD.L    D0,A0
  4231.     MOVEQ    #0,D0
  4232. mt_GlissLoop
  4233.     CMP.W    (A0,D0.W),D2
  4234.     BHS.S    mt_GlissFound
  4235.     ADDQ.W    #2,D0
  4236.     CMP.W    #36*2,D0
  4237.     BLO.S    mt_GlissLoop
  4238.     MOVEQ    #35*2,D0
  4239. mt_GlissFound
  4240.     MOVE.W    (A0,D0.W),D2
  4241. mt_GlissSkip
  4242.     MOVE.W    D2,6(A5) ; Set period
  4243.     RTS
  4244.  
  4245. mt_Vibrato
  4246.     MOVE.B    n_cmdlo(A6),D0
  4247.     BEQ.S    mt_Vibrato2
  4248.     MOVE.B    n_vibratocmd(A6),D2
  4249.     AND.B    #$0F,D0
  4250.     BEQ.S    mt_vibskip
  4251.     AND.B    #$F0,D2
  4252.     OR.B    D0,D2
  4253. mt_vibskip
  4254.     MOVE.B    n_cmdlo(A6),D0
  4255.     AND.B    #$F0,D0
  4256.     BEQ.S    mt_vibskip2
  4257.     AND.B    #$0F,D2
  4258.     OR.B    D0,D2
  4259. mt_vibskip2
  4260.     MOVE.B    D2,n_vibratocmd(A6)
  4261. mt_Vibrato2
  4262.     MOVE.B    n_vibratopos(A6),D0
  4263.     LEA    mt_VibratoTable(PC),A4
  4264.     LSR.W    #2,D0
  4265.     AND.W    #$001F,D0
  4266.     MOVEQ    #0,D2
  4267.     MOVE.B    n_wavecontrol(A6),D2
  4268.     AND.B    #$03,D2
  4269.     BEQ.S    mt_vib_sine
  4270.     LSL.B    #3,D0
  4271.     CMP.B    #1,D2
  4272.     BEQ.S    mt_vib_rampdown
  4273.     MOVE.B    #255,D2
  4274.     BRA.S    mt_vib_set
  4275. mt_vib_rampdown
  4276.     TST.B    n_vibratopos(A6)
  4277.     BPL.S    mt_vib_rampdown2
  4278.     MOVE.B    #255,D2
  4279.     SUB.B    D0,D2
  4280.     BRA.S    mt_vib_set
  4281. mt_vib_rampdown2
  4282.     MOVE.B    D0,D2
  4283.     BRA.S    mt_vib_set
  4284. mt_vib_sine
  4285.     MOVE.B    (A4,D0.W),D2
  4286. mt_vib_set
  4287.     MOVE.B    n_vibratocmd(A6),D0
  4288.     AND.W    #15,D0
  4289.     MULU    D0,D2
  4290.     LSR.W    #7,D2
  4291.     MOVE.W    n_period(A6),D0
  4292.     TST.B    n_vibratopos(A6)
  4293.     BMI.S    mt_VibratoNeg
  4294.     ADD.W    D2,D0
  4295.     BRA.S    mt_Vibrato3
  4296. mt_VibratoNeg
  4297.     SUB.W    D2,D0
  4298. mt_Vibrato3
  4299.     MOVE.W    D0,6(A5)
  4300.     MOVE.B    n_vibratocmd(A6),D0
  4301.     LSR.W    #2,D0
  4302.     AND.W    #$003C,D0
  4303.     ADD.B    D0,n_vibratopos(A6)
  4304.     RTS
  4305.  
  4306. mt_TonePlusVolSlide
  4307.     BSR.W    mt_TonePortNoChange
  4308.     BRA.W    mt_VolumeSlide
  4309.  
  4310. mt_VibratoPlusVolSlide
  4311.     BSR.S    mt_Vibrato2
  4312.     BRA.W    mt_VolumeSlide
  4313.  
  4314. mt_Tremolo
  4315.     MOVE.B    n_cmdlo(A6),D0
  4316.     BEQ.S    mt_Tremolo2
  4317.     MOVE.B    n_tremolocmd(A6),D2
  4318.     AND.B    #$0F,D0
  4319.     BEQ.S    mt_treskip
  4320.     AND.B    #$F0,D2
  4321.     OR.B    D0,D2
  4322. mt_treskip
  4323.     MOVE.B    n_cmdlo(A6),D0
  4324.     AND.B    #$F0,D0
  4325.     BEQ.S    mt_treskip2
  4326.     AND.B    #$0F,D2
  4327.     OR.B    D0,D2
  4328. mt_treskip2
  4329.     MOVE.B    D2,n_tremolocmd(A6)
  4330. mt_Tremolo2
  4331.     MOVE.B    n_tremolopos(A6),D0
  4332.     LEA    mt_VibratoTable(PC),A4
  4333.     LSR.W    #2,D0
  4334.     AND.W    #$001F,D0
  4335.     MOVEQ    #0,D2
  4336.     MOVE.B    n_wavecontrol(A6),D2
  4337.     LSR.B    #4,D2
  4338.     AND.B    #$03,D2
  4339.     BEQ.S    mt_tre_sine
  4340.     LSL.B    #3,D0
  4341.     CMP.B    #1,D2
  4342.     BEQ.S    mt_tre_rampdown
  4343.     MOVE.B    #255,D2
  4344.     BRA.S    mt_tre_set
  4345. mt_tre_rampdown
  4346.     TST.B    n_vibratopos(A6)
  4347.     BPL.S    mt_tre_rampdown2
  4348.     MOVE.B    #255,D2
  4349.     SUB.B    D0,D2
  4350.     BRA.S    mt_tre_set
  4351. mt_tre_rampdown2
  4352.     MOVE.B    D0,D2
  4353.     BRA.S    mt_tre_set
  4354. mt_tre_sine
  4355.     MOVE.B    (A4,D0.W),D2
  4356. mt_tre_set
  4357.     MOVE.B    n_tremolocmd(A6),D0
  4358.     AND.W    #15,D0
  4359.     MULU    D0,D2
  4360.     LSR.W    #6,D2
  4361.     MOVEQ    #0,D0
  4362.     MOVE.B    n_volume(A6),D0
  4363.     TST.B    n_tremolopos(A6)
  4364.     BMI.S    mt_TremoloNeg
  4365.     ADD.W    D2,D0
  4366.     BRA.S    mt_Tremolo3
  4367. mt_TremoloNeg
  4368.     SUB.W    D2,D0
  4369. mt_Tremolo3
  4370.     BPL.S    mt_TremoloSkip
  4371.     CLR.W    D0
  4372. mt_TremoloSkip
  4373.     CMP.W    #$40,D0
  4374.     BLS.S    mt_TremoloOk
  4375.     MOVE.W    #$40,D0
  4376. mt_TremoloOk
  4377.     MOVE.W    D0,8(A5)
  4378.     MOVE.B    n_tremolocmd(A6),D0
  4379.     LSR.W    #2,D0
  4380.     AND.W    #$003C,D0
  4381.     ADD.B    D0,n_tremolopos(A6)
  4382.     RTS
  4383.  
  4384. mt_SampleOffset
  4385.     MOVEQ    #0,D0
  4386.     MOVE.B    n_cmdlo(A6),D0
  4387.     BEQ.S    mt_sononew
  4388.     MOVE.B    D0,n_sampleoffset(A6)
  4389. mt_sononew
  4390.     MOVE.B    n_sampleoffset(A6),D0
  4391.     LSL.W    #7,D0
  4392.     CMP.W    n_length(A6),D0
  4393.     BGE.S    mt_sofskip
  4394.     SUB.W    D0,n_length(A6)
  4395.     LSL.W    #1,D0
  4396.     ADD.L    D0,n_start(A6)
  4397.     RTS
  4398. mt_sofskip
  4399.     MOVE.W    #$0001,n_length(A6)
  4400.     RTS
  4401.  
  4402. mt_VolumeSlide
  4403.     MOVEQ    #0,D0
  4404.     MOVE.B    n_cmdlo(A6),D0
  4405.     LSR.B    #4,D0
  4406.     TST.B    D0
  4407.     BEQ.S    mt_VolSlideDown
  4408. mt_VolSlideUp
  4409.     ADD.B    D0,n_volume(A6)
  4410.     CMP.B    #$40,n_volume(A6)
  4411.     BMI.S    mt_vsuskip
  4412.     MOVE.B    #$40,n_volume(A6)
  4413. mt_vsuskip
  4414.     MOVE.B    n_volume(A6),D0
  4415.     MOVE.W    D0,8(A5)
  4416.     RTS
  4417.  
  4418. mt_VolSlideDown
  4419.     MOVEQ    #0,D0
  4420.     MOVE.B    n_cmdlo(A6),D0
  4421.     AND.B    #$0F,D0
  4422. mt_VolSlideDown2
  4423.     SUB.B    D0,n_volume(A6)
  4424.     BPL.S    mt_vsdskip
  4425.     CLR.B    n_volume(A6)
  4426. mt_vsdskip
  4427.     MOVE.B    n_volume(A6),D0
  4428.     MOVE.W    D0,8(A5)
  4429.     RTS
  4430.  
  4431. mt_PositionJump
  4432.     MOVE.B    n_cmdlo(A6),D0
  4433.     SUBQ.B    #1,D0
  4434.     MOVE.B    D0,mt_SongPos
  4435. mt_pj2    CLR.B    mt_PBreakPos
  4436.     ST     mt_PosJumpFlag
  4437.     RTS
  4438.  
  4439. mt_VolumeChange
  4440.     MOVEQ    #0,D0
  4441.     MOVE.B    n_cmdlo(A6),D0
  4442.     CMP.B    #$40,D0
  4443.     BLS.S    mt_VolumeOk
  4444.     MOVEQ    #$40,D0
  4445. mt_VolumeOk
  4446.     MOVE.B    D0,n_volume(A6)
  4447.     MOVE.W    D0,8(A5)
  4448.     RTS
  4449.  
  4450. mt_PatternBreak
  4451.     MOVEQ    #0,D0
  4452.     MOVE.B    n_cmdlo(A6),D0
  4453.     MOVE.L    D0,D2
  4454.     LSR.B    #4,D0
  4455.     MULU    #10,D0
  4456.     AND.B    #$0F,D2
  4457.     ADD.B    D2,D0
  4458.     CMP.B    #63,D0
  4459.     BHI.S    mt_pj2
  4460.     MOVE.B    D0,mt_PBreakPos
  4461.     ST    mt_PosJumpFlag
  4462.     RTS
  4463.  
  4464. mt_SetSpeed
  4465.     MOVEQ    #0,D0
  4466.     MOVE.B    3(A6),D0
  4467.     BEQ.W    mt_end
  4468.     CMP.B    #32,D0
  4469.     BHS.W    SetTempo
  4470.     CLR.B    mt_counter
  4471.     MOVE.B    D0,mt_speed
  4472.     RTS
  4473.  
  4474. mt_CheckMoreEfx
  4475.     BSR.W    mt_UpdateFunk
  4476.     MOVE.B    2(A6),D0
  4477.     AND.B    #$0F,D0
  4478.     CMP.B    #$9,D0
  4479.     BEQ.W    mt_SampleOffset
  4480.     CMP.B    #$B,D0
  4481.     BEQ.W    mt_PositionJump
  4482.     CMP.B    #$D,D0
  4483.     BEQ.S    mt_PatternBreak
  4484.     CMP.B    #$E,D0
  4485.     BEQ.S    mt_E_Commands
  4486.     CMP.B    #$F,D0
  4487.     BEQ.S    mt_SetSpeed
  4488.     CMP.B    #$C,D0
  4489.     BEQ.W    mt_VolumeChange
  4490.     BRA.W    mt_PerNop
  4491.  
  4492. mt_E_Commands
  4493.     MOVE.B    n_cmdlo(A6),D0
  4494.     AND.B    #$F0,D0
  4495.     LSR.B    #4,D0
  4496.     BEQ.S    mt_FilterOnOff
  4497.     CMP.B    #1,D0
  4498.     BEQ.W    mt_FinePortaUp
  4499.     CMP.B    #2,D0
  4500.     BEQ.W    mt_FinePortaDown
  4501.     CMP.B    #3,D0
  4502.     BEQ.S    mt_SetGlissControl
  4503.     CMP.B    #4,D0
  4504.     BEQ.W    mt_SetVibratoControl
  4505.     CMP.B    #5,D0
  4506.     BEQ.W    mt_SetFineTune
  4507.     CMP.B    #6,D0
  4508.     BEQ.W    mt_JumpLoop
  4509.     CMP.B    #7,D0
  4510.     BEQ.W    mt_SetTremoloControl
  4511.     CMP.B    #9,D0
  4512.     BEQ.W    mt_RetrigNote
  4513.     CMP.B    #$A,D0
  4514.     BEQ.W    mt_VolumeFineUp
  4515.     CMP.B    #$B,D0
  4516.     BEQ.W    mt_VolumeFineDown
  4517.     CMP.B    #$C,D0
  4518.     BEQ.W    mt_NoteCut
  4519.     CMP.B    #$D,D0
  4520.     BEQ.W    mt_NoteDelay
  4521.     CMP.B    #$E,D0
  4522.     BEQ.W    mt_PatternDelay
  4523.     CMP.B    #$F,D0
  4524.     BEQ.W    mt_FunkIt
  4525.     RTS
  4526.  
  4527. mt_FilterOnOff
  4528.     MOVE.B    n_cmdlo(A6),D0
  4529.     AND.B    #1,D0
  4530.     ASL.B    #1,D0
  4531.     AND.B    #$FD,$BFE001
  4532.     OR.B    D0,$BFE001
  4533.     RTS    
  4534.  
  4535. mt_SetGlissControl
  4536.     MOVE.B    n_cmdlo(A6),D0
  4537.     AND.B    #$0F,D0
  4538.     AND.B    #$F0,n_glissfunk(A6)
  4539.     OR.B    D0,n_glissfunk(A6)
  4540.     RTS
  4541.  
  4542. mt_SetVibratoControl
  4543.     MOVE.B    n_cmdlo(A6),D0
  4544.     AND.B    #$0F,D0
  4545.     AND.B    #$F0,n_wavecontrol(A6)
  4546.     OR.B    D0,n_wavecontrol(A6)
  4547.     RTS
  4548.  
  4549. mt_SetFineTune
  4550.     MOVE.B    n_cmdlo(A6),D0
  4551.     AND.B    #$0F,D0
  4552.     MOVE.B    D0,n_finetune(A6)
  4553.     RTS
  4554.  
  4555. mt_JumpLoop
  4556.     TST.B    mt_counter
  4557.     BNE.W    mt_Return
  4558.     MOVE.B    n_cmdlo(A6),D0
  4559.     AND.B    #$0F,D0
  4560.     BEQ.S    mt_SetLoop
  4561.     TST.B    n_loopcount(A6)
  4562.     BEQ.S    mt_jumpcnt
  4563.     SUBQ.B    #1,n_loopcount(A6)
  4564.     BEQ.W    mt_Return
  4565. mt_jmploop    MOVE.B    n_pattpos(A6),mt_PBreakPos
  4566.     ST    mt_PBreakFlag
  4567.     RTS
  4568.  
  4569. mt_jumpcnt
  4570.     MOVE.B    D0,n_loopcount(A6)
  4571.     BRA.S    mt_jmploop
  4572.  
  4573. mt_SetLoop
  4574.     MOVE.W    mt_PatternPos(PC),D0
  4575.     LSR.W    #4,D0
  4576.     MOVE.B    D0,n_pattpos(A6)
  4577.     RTS
  4578.  
  4579. mt_SetTremoloControl
  4580.     MOVE.B    n_cmdlo(A6),D0
  4581.     AND.B    #$0F,D0
  4582.     LSL.B    #4,D0
  4583.     AND.B    #$0F,n_wavecontrol(A6)
  4584.     OR.B    D0,n_wavecontrol(A6)
  4585.     RTS
  4586.  
  4587. mt_RetrigNote
  4588.     MOVE.L    D1,-(SP)
  4589.     MOVEQ    #0,D0
  4590.     MOVE.B    n_cmdlo(A6),D0
  4591.     AND.B    #$0F,D0
  4592.     BEQ.S    mt_rtnend
  4593.     MOVEQ    #0,D1
  4594.     MOVE.B    mt_counter(PC),D1
  4595.     BNE.S    mt_rtnskp
  4596.     MOVE.W    (A6),D1
  4597.     AND.W    #$0FFF,D1
  4598.     BNE.S    mt_rtnend
  4599.     MOVEQ    #0,D1
  4600.     MOVE.B    mt_counter(PC),D1
  4601. mt_rtnskp
  4602.     DIVU    D0,D1
  4603.     SWAP    D1
  4604.     TST.W    D1
  4605.     BNE.S    mt_rtnend
  4606. mt_DoRetrig
  4607.     MOVE.W    n_dmabit(A6),$DFF096    ; Channel DMA off
  4608.     MOVE.L    n_start(A6),(A5)    ; Set sampledata pointer
  4609.     MOVE.W    n_length(A6),4(A5)    ; Set length
  4610.     MOVE.W    #300,D0
  4611. mt_rtnloop1
  4612.     DBRA    D0,mt_rtnloop1
  4613.     MOVE.W    n_dmabit(A6),D0
  4614.     BSET    #15,D0
  4615.     MOVE.W    D0,$DFF096
  4616.     MOVE.W    #300,D0
  4617. mt_rtnloop2
  4618.     DBRA    D0,mt_rtnloop2
  4619.     MOVE.L    n_loopstart(A6),(A5)
  4620.     MOVE.L    n_replen(A6),4(A5)
  4621. mt_rtnend
  4622.     MOVE.L    (SP)+,D1
  4623.     RTS
  4624.  
  4625. mt_VolumeFineUp
  4626.     TST.B    mt_counter
  4627.     BNE.W    mt_Return
  4628.     MOVEQ    #0,D0
  4629.     MOVE.B    n_cmdlo(A6),D0
  4630.     AND.B    #$F,D0
  4631.     BRA.W    mt_VolSlideUp
  4632.  
  4633. mt_VolumeFineDown
  4634.     TST.B    mt_counter
  4635.     BNE.W    mt_Return
  4636.     MOVEQ    #0,D0
  4637.     MOVE.B    n_cmdlo(A6),D0
  4638.     AND.B    #$0F,D0
  4639.     BRA.W    mt_VolSlideDown2
  4640.  
  4641. mt_NoteCut
  4642.     MOVEQ    #0,D0
  4643.     MOVE.B    n_cmdlo(A6),D0
  4644.     AND.B    #$0F,D0
  4645.     CMP.B    mt_counter(PC),D0
  4646.     BNE.W    mt_Return
  4647.     CLR.B    n_volume(A6)
  4648.     MOVE.W    #0,8(A5)
  4649.     RTS
  4650.  
  4651. mt_NoteDelay
  4652.     MOVEQ    #0,D0
  4653.     MOVE.B    n_cmdlo(A6),D0
  4654.     AND.B    #$0F,D0
  4655.     CMP.B    mt_counter,D0
  4656.     BNE.W    mt_Return
  4657.     MOVE.W    (A6),D0
  4658.     BEQ.W    mt_Return
  4659.     MOVE.L    D1,-(SP)
  4660.     BRA.W    mt_DoRetrig
  4661.  
  4662. mt_PatternDelay
  4663.     TST.B    mt_counter
  4664.     BNE.W    mt_Return
  4665.     MOVEQ    #0,D0
  4666.     MOVE.B    n_cmdlo(A6),D0
  4667.     AND.B    #$0F,D0
  4668.     TST.B    mt_PattDelTime2
  4669.     BNE.W    mt_Return
  4670.     ADDQ.B    #1,D0
  4671.     MOVE.B    D0,mt_PattDelTime
  4672.     RTS
  4673.  
  4674. mt_FunkIt
  4675.     TST.B    mt_counter
  4676.     BNE.W    mt_Return
  4677.     MOVE.B    n_cmdlo(A6),D0
  4678.     AND.B    #$0F,D0
  4679.     LSL.B    #4,D0
  4680.     AND.B    #$0F,n_glissfunk(A6)
  4681.     OR.B    D0,n_glissfunk(A6)
  4682.     TST.B    D0
  4683.     BEQ.W    mt_Return
  4684. mt_UpdateFunk
  4685.     MOVEM.L    A0/D1,-(SP)
  4686.     MOVEQ    #0,D0
  4687.     MOVE.B    n_glissfunk(A6),D0
  4688.     LSR.B    #4,D0
  4689.     BEQ.S    mt_funkend
  4690.     LEA    mt_FunkTable(PC),A0
  4691.     MOVE.B    (A0,D0.W),D0
  4692.     ADD.B    D0,n_funkoffset(A6)
  4693.     BTST    #7,n_funkoffset(A6)
  4694.     BEQ.S    mt_funkend
  4695.     CLR.B    n_funkoffset(A6)
  4696.  
  4697.     MOVE.L    n_loopstart(A6),D0
  4698.     MOVEQ    #0,D1
  4699.     MOVE.W    n_replen(A6),D1
  4700.     ADD.L    D1,D0
  4701.     ADD.L    D1,D0
  4702.     MOVE.L    n_wavestart(A6),A0
  4703.     ADDQ.L    #1,A0
  4704.     CMP.L    D0,A0
  4705.     BLO.S    mt_funkok
  4706.     MOVE.L    n_loopstart(A6),A0
  4707. mt_funkok
  4708.     MOVE.L    A0,n_wavestart(A6)
  4709.     MOVEQ    #-1,D0
  4710.     SUB.B    (A0),D0
  4711.     MOVE.B    D0,(A0)
  4712. mt_funkend
  4713.     MOVEM.L    (SP)+,A0/D1
  4714.     RTS
  4715.  
  4716.  
  4717. mt_FunkTable dc.b 0,5,6,7,8,10,11,13,16,19,22,26,32,43,64,128
  4718.  
  4719. mt_VibratoTable    
  4720.     dc.b   0, 24, 49, 74, 97,120,141,161
  4721.     dc.b 180,197,212,224,235,244,250,253
  4722.     dc.b 255,253,250,244,235,224,212,197
  4723.     dc.b 180,161,141,120, 97, 74, 49, 24
  4724.  
  4725. mt_PeriodTable
  4726. ; Tuning 0, Normal
  4727.     dc.w    856,808,762,720,678,640,604,570,538,508,480,453
  4728.     dc.w    428,404,381,360,339,320,302,285,269,254,240,226
  4729.     dc.w    214,202,190,180,170,160,151,143,135,127,120,113
  4730. ; Tuning 1
  4731.     dc.w    850,802,757,715,674,637,601,567,535,505,477,450
  4732.     dc.w    425,401,379,357,337,318,300,284,268,253,239,225
  4733.     dc.w    213,201,189,179,169,159,150,142,134,126,119,113
  4734. ; Tuning 2
  4735.     dc.w    844,796,752,709,670,632,597,563,532,502,474,447
  4736.     dc.w    422,398,376,355,335,316,298,282,266,251,237,224
  4737.     dc.w    211,199,188,177,167,158,149,141,133,125,118,112
  4738. ; Tuning 3
  4739.     dc.w    838,791,746,704,665,628,592,559,528,498,470,444
  4740.     dc.w    419,395,373,352,332,314,296,280,264,249,235,222
  4741.     dc.w    209,198,187,176,166,157,148,140,132,125,118,111
  4742. ; Tuning 4
  4743.     dc.w    832,785,741,699,660,623,588,555,524,495,467,441
  4744.     dc.w    416,392,370,350,330,312,294,278,262,247,233,220
  4745.     dc.w    208,196,185,175,165,156,147,139,131,124,117,110
  4746. ; Tuning 5
  4747.     dc.w    826,779,736,694,655,619,584,551,520,491,463,437
  4748.     dc.w    413,390,368,347,328,309,292,276,260,245,232,219
  4749.     dc.w    206,195,184,174,164,155,146,138,130,123,116,109
  4750. ; Tuning 6
  4751.     dc.w    820,774,730,689,651,614,580,547,516,487,460,434
  4752.     dc.w    410,387,365,345,325,307,290,274,258,244,230,217
  4753.     dc.w    205,193,183,172,163,154,145,137,129,122,115,109
  4754. ; Tuning 7
  4755.     dc.w    814,768,725,684,646,610,575,543,513,484,457,431
  4756.     dc.w    407,384,363,342,323,305,288,272,256,242,228,216
  4757.     dc.w    204,192,181,171,161,152,144,136,128,121,114,108
  4758. ; Tuning -8
  4759.     dc.w    907,856,808,762,720,678,640,604,570,538,508,480
  4760.     dc.w    453,428,404,381,360,339,320,302,285,269,254,240
  4761.     dc.w    226,214,202,190,180,170,160,151,143,135,127,120
  4762. ; Tuning -7
  4763.     dc.w    900,850,802,757,715,675,636,601,567,535,505,477
  4764.     dc.w    450,425,401,379,357,337,318,300,284,268,253,238
  4765.     dc.w    225,212,200,189,179,169,159,150,142,134,126,119
  4766. ; Tuning -6
  4767.     dc.w    894,844,796,752,709,670,632,597,563,532,502,474
  4768.     dc.w    447,422,398,376,355,335,316,298,282,266,251,237
  4769.     dc.w    223,211,199,188,177,167,158,149,141,133,125,118
  4770. ; Tuning -5
  4771.     dc.w    887,838,791,746,704,665,628,592,559,528,498,470
  4772.     dc.w    444,419,395,373,352,332,314,296,280,264,249,235
  4773.     dc.w    222,209,198,187,176,166,157,148,140,132,125,118
  4774. ; Tuning -4
  4775.     dc.w    881,832,785,741,699,660,623,588,555,524,494,467
  4776.     dc.w    441,416,392,370,350,330,312,294,278,262,247,233
  4777.     dc.w    220,208,196,185,175,165,156,147,139,131,123,117
  4778. ; Tuning -3
  4779.     dc.w    875,826,779,736,694,655,619,584,551,520,491,463
  4780.     dc.w    437,413,390,368,347,328,309,292,276,260,245,232
  4781.     dc.w    219,206,195,184,174,164,155,146,138,130,123,116
  4782. ; Tuning -2
  4783.     dc.w    868,820,774,730,689,651,614,580,547,516,487,460
  4784.     dc.w    434,410,387,365,345,325,307,290,274,258,244,230
  4785.     dc.w    217,205,193,183,172,163,154,145,137,129,122,115
  4786. ; Tuning -1
  4787.     dc.w    862,814,768,725,684,646,610,575,543,513,484,457
  4788.     dc.w    431,407,384,363,342,323,305,288,272,256,242,228
  4789.     dc.w    216,203,192,181,171,161,152,144,136,128,121,114
  4790.  
  4791. mt_chan1temp    dc.l    0,0,0,0,0,$00010000,0,  0,0,0,0
  4792. mt_chan2temp    dc.l    0,0,0,0,0,$00020000,0,  0,0,0,0
  4793. mt_chan3temp    dc.l    0,0,0,0,0,$00040000,0,  0,0,0,0
  4794. mt_chan4temp    dc.l    0,0,0,0,0,$00080000,0,  0,0,0,0
  4795.  
  4796. mt_SampleStarts    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4797.         dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  4798.  
  4799. mt_SongDataPtr    dc.l 0
  4800. mt_speed    dc.b 6
  4801. mt_counter    dc.b 0
  4802. mt_SongPos    dc.b 0
  4803. mt_PBreakPos    dc.b 0
  4804. mt_PosJumpFlag    dc.b 0
  4805. mt_PBreakFlag    dc.b 0
  4806. mt_LowMask    dc.b 0
  4807. mt_PattDelTime    dc.b 0
  4808. mt_PattDelTime2    dc.b 0
  4809. mt_Enable    dc.b 0
  4810. mt_PatternPos    dc.w 0
  4811. mt_DMACONtemp    dc.w 0
  4812.  
  4813. ;/* End of File */
  4814.  
  4815.  
  4816.  
  4817. ; =============================================================================
  4818. ;
  4819. ;                                   D A T A
  4820. ;
  4821. ; =============================================================================
  4822.        
  4823. ; *****************************************************************************
  4824. ; Copperlist header
  4825. ; *****************************************************************************
  4826.  
  4827.     ALIGNQUAD
  4828.  
  4829. COL32    MACRO
  4830.     dc.l    $01800000,$01820000,$01840000,$01860000,$01880000,$018a0000
  4831.     dc.l    $018c0000,$018e0000,$01900000,$01920000,$01940000,$01960000
  4832.     dc.l    $01980000,$019a0000,$019c0000,$019e0000,$01a00000,$01a20000
  4833.     dc.l    $01a40000,$01a60000,$01a80000,$01aa0000,$01ac0000,$01ae0000
  4834.     dc.l    $01b00000,$01b20000,$01b40000,$01b60000,$01b80000,$01ba0000
  4835.     dc.l    $01bc0000,$01be0000
  4836.     ENDM
  4837.     
  4838. Cop
  4839.          dc.l     $01fc400f         ;FMODE   Bpl=3, Spr=3, ScanDouble (2x2)
  4840.          dc.l     $00968100           ;DMACON  Plane dma on line 0
  4841.          dc.l     $01000211         ;BPLCON0 Lores, 8 planes, ECS on 
  4842.          dc.l     $01020000        ;BPLCON1
  4843.          dc.l     $0104003f           ;BPLCON2 Sprite priority!
  4844.          dc.l     $01060020           ;BPLCON3 BBlank
  4845.          dc.l     $010c0000           ;BPLCON4 Sprite-colorbank (!)
  4846.          dc.l     $0108ffd8         ;BPL1MOD 2x2: modulo = -40
  4847.          dc.l     $010a0000        ;BPL2MOD
  4848.          dc.l     $008e2881         ;
  4849.          dc.l    $009028c1        ;
  4850.          dc.l     $00920038         ;
  4851.     dc.l     $009400a0        ;
  4852.  
  4853. CopBpl                    ; Bitplane pointers
  4854.          dc.l     $00e00000,$00e20000
  4855.          dc.l     $00e40000,$00e60002
  4856.          dc.l     $00e80000,$00ea0004
  4857.          dc.l     $00ec0000,$00ee0006
  4858.          dc.l     $00f00000,$00f20008
  4859.          dc.l     $00f40000,$00f6000a
  4860.          dc.l     $00f80000,$00fa000c
  4861.          dc.l     $00fc0000,$00fe000e
  4862.  
  4863. CopCol                    ; Colour registers (24 bit HL)
  4864.     dc.l    $01060c60        
  4865.     COL32
  4866.     dc.l    $01060e60        
  4867.     COL32
  4868.     dc.l    $01062c60        
  4869.     COL32
  4870.     dc.l    $01062e60
  4871.     COL32
  4872.     dc.l    $01064c60
  4873.     COL32
  4874.     dc.l    $01064e60
  4875.     COL32
  4876.     dc.l    $01066c60
  4877.     COL32
  4878.     dc.l    $01066e60
  4879.     COL32
  4880.     dc.l    $01068c60
  4881.     COL32
  4882.     dc.l    $01068e60
  4883.     COL32
  4884.     dc.l    $0106ac60
  4885.     COL32
  4886.     dc.l    $0106ae60
  4887.     COL32
  4888.     dc.l    $0106cc60
  4889.     COL32
  4890.     dc.l    $0106ce60
  4891.     COL32
  4892.     dc.l    $0106ec60
  4893.     COL32
  4894.     dc.l    $0106ee60
  4895.     COL32
  4896.  
  4897. CopEnd
  4898.  
  4899.  
  4900. ; *****************************************************************************
  4901. ; Variables 
  4902. ; *****************************************************************************
  4903.  
  4904.     ALIGNLONG
  4905.  
  4906. Joy1Left    dc.b     0        ; Joystick direction
  4907. Joy1Right    dc.b    0
  4908. Joy1Up        dc.b    0
  4909. Joy1Down    dc.b    0
  4910. Joy1Fire    dc.b    0
  4911.  
  4912. KeyRaw        dc.b    0        ; Raw code of last pressed key
  4913. KeyState    dc.b    0         ; State of last pressed key
  4914.  
  4915.     ALIGNLONG
  4916.  
  4917. RendCh        dc.l    0        ; }_ Chunky buffer
  4918. DispCh        dc.l    0        ; }
  4919. RendBL        dc.l    0        ; }_ Blitterlist
  4920. DispBL        dc.l    0        ; }
  4921. RendCop        dc.l    0         ; }_ Copperlist
  4922. DispCop        dc.l    0        ; }
  4923.  
  4924. Plyr_Z        dc.l    0        ; Z-position
  4925. Plyr_ZSpd    dc.w    0        ; Tunnel scroll speed (in texels)
  4926. Plyr_Scroll    dc.w    0        ; Tunnel scroll position (in texels)
  4927. Plyr_X        dc.w    0        ; }_ Center-coordinates of player ship
  4928. Plyr_Y        dc.w    0        ; }
  4929. Plyr_XSpd    dc.w    0        ; }_ Speed
  4930. Plyr_YSpd    dc.w    0        ; }
  4931. Plyr_Level    dc.w    0        ; Current level number
  4932. Plyr_Ships    dc.w    0        ; Number of remaining ships
  4933. Plyr_Time    dc.l    0        ; Time left for this level
  4934. Plyr_Frame    dc.w    0        ; Animation frame number
  4935. Plyr_EngineCnt    dc.w    0        ; Engine colour counter
  4936. Plyr_EngineOn    dc.w    0        ; True is engine is on, false if off
  4937. Plyr_Name    dcb.b    MaxStrLen+1,0    ; Name of player
  4938. Plyr_Cheat    dc.b    0        ; Cheatmode on / off
  4939.  
  4940.         ALIGNLONG
  4941.         
  4942. Game_Flags    dc.l    0        ; Game-loop status flags
  4943. Game_FirstWall    dc.w    0        ; Number of first visible wall
  4944. Game_LastWall    dc.w    0        ; Number of last visible wall
  4945. Game_WallZ    dc.l    0        ; Pointer to Wall_Z array
  4946. Game_WallType    dc.l    0        ; Pointer to Wall_Type array
  4947. Game_LevelPtr    dc.l    0        ; Pointer to Level array
  4948.  
  4949. Toggle        dc.l    0        ; Toggles between 0 and 1 
  4950. ToggleCnt    dc.l    0        ; Time depends on max. ToggleCnt
  4951.  
  4952. FlgTimer    dc.l    0        ; Gameloop statusflag timer thing
  4953.  
  4954. BestTimes    dcb.l    9,0        ; Best track times
  4955. BestNames    dcb.b    9*12,0        ; Names of best racers
  4956.  
  4957. RealTimeCnt    dc.l    0        ; RealTime counter
  4958. RealTime    dc.l    0        ; RealTime value
  4959.         
  4960. Intro_Timer    dc.l    0        ; Intro timer
  4961. Intro_Flags    dc.l    0        ; Intro status-flags
  4962. Intro_WarpIn    dc.b    0        ; Intro warp-in is active
  4963. Intro_WarpOut    dc.b    0        ; Intro warp-out is active
  4964. Intro_WarpCount    dc.w    0        ; Intro warp-in/out counter
  4965. Intro_Level    dc.w    0        ; Levelnr for Track Select
  4966.  
  4967.  
  4968.  
  4969. ; *****************************************************************************
  4970. ; Level Data
  4971. ; *****************************************************************************
  4972.  
  4973.     ALIGNLONG
  4974.  
  4975. Level        ; Level 1 -----------------------------------------------------
  4976.         dc.w    34,3        ; NumWalls, Ships
  4977.         dc.l    1500        ; Time
  4978.         ; Level 2 -----------------------------------------------------
  4979.         dc.w    34,4
  4980.         dc.l    1500
  4981.         ; Level 3 -----------------------------------------------------
  4982.         dc.w    34,2
  4983.         dc.l    1000
  4984.         ; Level 4 -----------------------------------------------------
  4985.         dc.w    14,1
  4986.         dc.l    500
  4987.         ; Level 5 -----------------------------------------------------
  4988.         dc.w    50,3
  4989.         dc.l    2000
  4990.  
  4991. Wall_Z        ; Level 1 -----------------------------------------------------
  4992.         dc.l    512
  4993.         dc.l    01*1024,02*1024,03*1024,04*1024
  4994.         dc.l    05*1024,06*1024,07*1024,08*1024
  4995.         dc.l    09*1024,10*1024,11*1024,12*1024
  4996.         dc.l    13*1024,14*1024,15*1024,16*1024
  4997.         dc.l    17*1024,18*1024,19*1024,20*1024
  4998.         dc.l    21*1024,22*1024,23*1024,24*1024
  4999.         dc.l    25*1024,26*1024,27*1024,28*1024
  5000.         dc.l    29*1024,30*1024,31*1024,32*1024
  5001.         dc.l    33*1024
  5002.         dcb.l    MaxWall-34,0
  5003.         ; Level 2 -----------------------------------------------------
  5004.         dc.l    512
  5005.         dc.l    04*512,05*512,06*512,07*512
  5006.         dc.l    10*512,11*512,12*512,13*512
  5007.         dc.l    16*512,17*512,18*512,19*512
  5008.         dc.l    22*512,23*512,24*512,25*512
  5009.         dc.l    28*512,29*512,30*512,31*512
  5010.         dc.l    32*512,33*512,34*512,35*512
  5011.         dc.l    36*512,37*512,38*512,39*512
  5012.         dc.l    40*512,41*512,42*512,43*512
  5013.         dc.l    46*512
  5014.         dcb.l    MaxWall-34,0
  5015.         ; Level 3 -----------------------------------------------------
  5016.         dc.l    512
  5017.         dc.l    02*512,03*512,05*512,06*512
  5018.         dc.l    08*512,09*512,11*512,12*512
  5019.         dc.l    14*512,15*512,17*512,18*512
  5020.         dc.l    20*512,21*512,23*512,24*512
  5021.         dc.l    26*512,27*512,29*512,30*512
  5022.         dc.l    32*512,33*512,35*512,36*512
  5023.         dc.l    38*512,39*512,41*512,42*512
  5024.         dc.l    44*512,45*512,47*512,48*512
  5025.         dc.l    50*512
  5026.         dcb.l    MaxWall-34,0
  5027.         ; Level 4 -----------------------------------------------------
  5028.         dc.l    512
  5029.         dc.l    04*512,05*512,11*256,06*512
  5030.         dc.l    07*512,08*512,17*256,09*512
  5031.         dc.l    10*512,11*512,23*256,12*512
  5032.         dc.l    14*512
  5033.         dcb.l    MaxWall-14,0
  5034.         ; Level 5 -----------------------------------------------------
  5035.         dc.l    512
  5036.         dc.l    02*512,04*512,05*512,05*512+256
  5037.         dc.l    08*512,09*512,12*512,13*512
  5038.         dc.l    16*512,18*512,19*512,19*512+256
  5039.         dc.l    22*512,23*512,26*512,27*512
  5040.         dc.l    30*512,31*512,32*512,33*512
  5041.         dc.l    34*512,35*512,36*512,37*512
  5042.         dc.l    40*512,41*512,42*512,43*512
  5043.         dc.l    44*512,45*512,46*512,47*512
  5044.         dc.l    50*512,51*512,51*512+256,51*512+256+128
  5045.         dc.l    52*512,52*512+256,53*512,53*512+256
  5046.         dc.l    54*512,55*512,55*512+256,55*512+256+128
  5047.         dc.l    56*512,56*512+256,57*512,57*512+256
  5048.         dc.l    60*512
  5049.         dcb.l    MaxWall-50,0
  5050.  
  5051. Wall_Type    ; Level 1 -----------------------------------------------------
  5052.         dc.w    WT_Start
  5053.         dc.w    WT_Left,WT_Left,WT_Left,WT_Left
  5054.         dc.w    WT_Right,WT_Right,WT_Right,WT_Right
  5055.         dc.w    WT_Left,WT_Left,WT_Right,WT_Right
  5056.         dc.w    WT_Left,WT_Left,WT_Right,WT_Right
  5057.         dc.w    WT_Up,WT_Up,WT_Down,WT_Down
  5058.         dc.w    WT_Up,WT_Up,WT_Down,WT_Down
  5059.         dc.w    WT_Up,WT_Down,WT_Up,WT_Down
  5060.         dc.w    WT_Up,WT_Down,WT_Up,WT_Down
  5061.         dc.w    WT_Finish
  5062.         dcb.w    MaxWall-34,0
  5063.         ; Level 2 -----------------------------------------------------
  5064.         dc.w    WT_Start
  5065.         dc.w    WT_Left,WT_Up,WT_Right,WT_Down
  5066.         dc.w    WT_Up,WT_Left,WT_Down,WT_Right
  5067.         dc.w    WT_Right,WT_Up,WT_Down,WT_Left
  5068.         dc.w    WT_Down,WT_Left,WT_Right,WT_Up
  5069.         dc.w    WT_Left,WT_Up,WT_Right,WT_Down
  5070.         dc.w    WT_Up,WT_Left,WT_Down,WT_Right
  5071.         dc.w    WT_Right,WT_Up,WT_Down,WT_Left
  5072.         dc.w    WT_Down,WT_Left,WT_Right,WT_Up
  5073.         dc.w    WT_Finish
  5074.         dcb.w    MaxWall-34,0
  5075.         ; Level 3 -----------------------------------------------------
  5076.         dc.w    WT_Start
  5077.         dc.w    WT_Right,WT_Up,WT_Left,WT_Down
  5078.         dc.w    WT_Right,WT_Up,WT_Left,WT_Down
  5079.         dc.w    WT_Left,WT_Up,WT_Right,WT_Down
  5080.         dc.w    WT_Left,WT_Up,WT_Right,WT_Down
  5081.         dc.w    WT_Right,WT_Down,WT_Left,WT_Up
  5082.         dc.w    WT_Right,WT_Down,WT_Left,WT_Up
  5083.         dc.w    WT_Left,WT_Down,WT_Right,WT_Up
  5084.         dc.w    WT_Left,WT_Down,WT_Right,WT_Up
  5085.         dc.w    WT_Finish
  5086.         dcb.w    MaxWall-34,0
  5087.         ; Level 4 -----------------------------------------------------
  5088.         dc.w    WT_Start
  5089.         dc.w    WT_Down,WT_Up,WT_Left,WT_Down
  5090.         dc.w    WT_Up,WT_Down,WT_Right,WT_Up
  5091.         dc.w    WT_Down,WT_Up,WT_Left,WT_Right
  5092.         dc.w    WT_Finish
  5093.         dcb.w    MaxWall-14,0
  5094.         ; Level 5 -----------------------------------------------------
  5095.         dc.w    WT_Start
  5096.         dc.w    WT_Left,WT_Down,WT_Up,WT_Right
  5097.         dc.w    WT_Left,WT_Right,WT_Left,WT_Right
  5098.         dc.w    WT_Left,WT_Down,WT_Up,WT_Right
  5099.         dc.w    WT_Down,WT_Up,WT_Down,WT_Up
  5100.         dc.w    WT_Right,WT_Right,WT_Down,WT_Up
  5101.         dc.w    WT_Left,WT_Left,WT_Up,WT_Up
  5102.         dc.w    WT_Right,WT_Right,WT_Up,WT_Down
  5103.         dc.w    WT_Left,WT_Left,WT_Up,WT_Up
  5104.         dc.w    WT_Left,WT_Down,WT_Up,WT_Right
  5105.         dc.w    WT_Left,WT_Right,WT_Left,WT_Right
  5106.         dc.w    WT_Left,WT_Down,WT_Up,WT_Right
  5107.         dc.w    WT_Down,WT_Up,WT_Down,WT_Up
  5108.         dc.w    WT_Finish
  5109.         dcb.w    MaxWall-50,0                
  5110.  
  5111.  
  5112. ; *****************************************************************************
  5113. ; Constant data
  5114. ; *****************************************************************************
  5115.  
  5116.         ALIGNLONG
  5117.         
  5118. Type_Bitmap    dc.l    wt_start        ; Pointers to bitmaps
  5119.         dc.l    wt_finish
  5120.         dc.l    wt_left
  5121.         dc.l    wt_right
  5122.         dc.l    wt_up
  5123.         dc.l    wt_down
  5124.         
  5125. Type_Hole    dc.w    0,0,159,127        ; WT_Start
  5126.         dc.w    0,0,159,127        ; WT_Finish
  5127.         dc.w    80,0,159,127        ; WT_Left
  5128.         dc.w    0,0,79,127        ; WT_Right
  5129.         dc.w    0,64,159,127        ; WT_Up
  5130.         dc.w    0,0,159,63        ; WT_Down
  5131.  
  5132. Ship_Anim    dc.l     Ship01,Ship02,Ship03,Ship04,Ship05    ; Pointers to
  5133.         dc.l     Ship06,Ship07,Ship08,Ship09,Ship10    ; animation
  5134.         dc.l     Ship11,Ship12,Ship13,Ship14,Ship15    ; frames
  5135.         dc.l     Ship16,Ship17,Ship18,Ship19,Ship20    ;
  5136.         dc.l     Ship21,Ship22,Ship23,Ship24,Ship25    ;
  5137.  
  5138. Shadow_Anim    dc.l    Shadow01,Shadow02,Shadow03,Shadow04    ; Pointers to
  5139.         dc.l    Shadow05                ; anim frames
  5140.  
  5141. Coll_Bounds    dc.w    -21,-10,20,9,    -20,-10,20,9    ; Collision
  5142.         dc.w    -19,-10,20,9,    -20,-10,20,9    ; boundaries
  5143.         dc.w    -20,-10,21,9,    -21,-8,20,7    ; for player ship
  5144.         dc.w    -19,-8,20,7,    -19,-8,19,6    
  5145.         dc.w    -20,-8,19,7,    -20,-8,21,7
  5146.         dc.w    -20,-7,21,7,    -19,-7,20,6
  5147.         dc.w    -19,-7,19,6,    -20,-7,19,6
  5148.         dc.w    -21,-7,20,7,    -20,-12,20,10
  5149.         dc.w    -19,-12,20,9,    -19,-12,20,8
  5150.         dc.w    -20,-12,19,9,    -20,-12,20,10
  5151.         dc.w    -20,-12,20,13,    -19,-12,19,12
  5152.         dc.w    -19,-12,20,11,    -19,-12,19,12
  5153.         dc.w    -20,-12,20,13
  5154.         
  5155. Raw2ASCII    dc.b    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0           ; 00..0F
  5156.         dc.b    81,87,69,82,84,89,85,73,79,80,0,0,0,0,0,0  ; 10..1F
  5157.         dc.b    65,83,68,70,71,72,74,75,76,00,0,0,0,0,0,0  ; 20..2F
  5158.         dc.b    00,90,88,67,86,66,78,77,00,00,0,0,0,0,0,0  ; 30..3F
  5159.         dc.b    32                       ; 40
  5160.  
  5161. ; *****************************************************************************
  5162. ; Graphics, text, etc...
  5163. ; *****************************************************************************
  5164.  
  5165.     ALIGNLONG
  5166.     
  5167.     incdir "fantasy:tunn3l/inc/"
  5168.  
  5169. TxtLut        incbin     "Txt.LUT"        ; 160x128x2 Texture LookUpTable
  5170. WallLut_S    incbin     "Wall_S.LUT"        ; }
  5171. WallLut_X    incbin     "Wall_X.LUT"        ; }- 2048x4 Wall LookUpTable 
  5172. WallLut_Y    incbin     "Wall_Y.LUT"            ; }
  5173.  
  5174. txt        incbin     "TunnelTxt.CKY"        ; 256x256 tunnel texture
  5175.  
  5176. Ship01        incbin    "Ship01.CKY"        ; 48x25 ship images
  5177. Ship02        incbin    "Ship02.CKY"        ; 
  5178. Ship03        incbin    "Ship03.CKY"        ; 
  5179. Ship04        incbin    "Ship04.CKY"        ; 
  5180. Ship05        incbin    "Ship05.CKY"        ; 
  5181. Ship06        incbin    "Ship06.CKY"        ; 
  5182. Ship07        incbin    "Ship07.CKY"        ; 
  5183. Ship08        incbin    "Ship08.CKY"        ; 
  5184. Ship09        incbin    "Ship09.CKY"        ; 
  5185. Ship10        incbin    "Ship10.CKY"        ; 
  5186. Ship11        incbin    "Ship11.CKY"        ; 
  5187. Ship12        incbin    "Ship12.CKY"        ; 
  5188. Ship13        incbin    "Ship13.CKY"        ; 
  5189. Ship14        incbin    "Ship14.CKY"        ; 
  5190. Ship15        incbin    "Ship15.CKY"        ; 
  5191. Ship16        incbin    "Ship16.CKY"        ; 
  5192. Ship17        incbin    "Ship17.CKY"        ; 
  5193. Ship18        incbin    "Ship18.CKY"        ; 
  5194. Ship19        incbin    "Ship19.CKY"        ; 
  5195. Ship20        incbin    "Ship20.CKY"        ; 
  5196. Ship21        incbin    "Ship21.CKY"        ; 
  5197. Ship22        incbin    "Ship22.CKY"        ; 
  5198. Ship23        incbin    "Ship23.CKY"        ; 
  5199. Ship24        incbin    "Ship24.CKY"        ; 
  5200. Ship25        incbin    "Ship25.CKY"        ; 
  5201.  
  5202. Shadow01    incbin    "Shadow01.CKY"        ; 48x25 shadow images
  5203. Shadow02    incbin    "Shadow02.CKY"        ;
  5204. Shadow03    incbin    "Shadow03.CKY"        ;
  5205. Shadow04    incbin    "Shadow04.CKY"        ;
  5206. Shadow05    incbin    "Shadow05.CKY"        ;
  5207.  
  5208. wt_start    incbin     "WT_Start.CKY"        ; Wall graphics
  5209. wt_finish    incbin     "WT_Finish.CKY"        ;
  5210. wt_left        incbin     "WT_Left.CKY"        ;
  5211. wt_right    incbin     "WT_Right.CKY"        ;
  5212. wt_up        incbin     "WT_Up.CKY"        ;
  5213. wt_down        incbin     "WT_Down.CKY"        ;
  5214.  
  5215. IntroPal    incbin     "IntroPal.PAL"        ; Intro palette (24-bit)
  5216. GamePal        incbin  "GamePal.PAL"        ; Game palette (24-bit)
  5217. EnginePal    incbin    "EnginePal.PAL"        ; Engine colour palette
  5218.  
  5219. WhitePal    dcb.l    256,$00ffffff        ; Totally white palette
  5220. TempPal        dcb.l    256,$00000000        ; Temporary palette for fades
  5221.  
  5222. IntroWarp    incbin     "IntroWarp.LUT"        ; Warp LookUpTable
  5223. IntroFont    incbin     "IntroFont.RAW"        ; Intro font graphics
  5224.  
  5225. ChunkyFont    incbin    "ChunkyFont.CKY"    ; Game font
  5226.  
  5227. txt_track    dc.b    "TRACK",0        ; Texts
  5228. txt_complete    dc.b    "COMPLETE",0
  5229. txt_out        dc.b    "OUT",0
  5230. txt_of        dc.b    "OF",0
  5231. txt_time    dc.b    "TIME",0
  5232. txt_ships    dc.b    "SHIPS",0
  5233. txt_press    dc.b    "PRESS",0
  5234. txt_fire    dc.b    "FIRE",0
  5235. txt_race    dc.b    "RACE",0
  5236. txt_over    dc.b    "OVER",0
  5237. txt_best    dc.b     "BEST",0
  5238. txt_pause    dc.b    "PAUSE",0
  5239.  
  5240. itxt_0        dc.b    "    ZERO GRAVITY",0    ; Intro texts
  5241. itxt_1        dc.b    "   **************",0
  5242. itxt_2        dc.b    "     CREATED BY",0
  5243. itxt_3        dc.b    " MATTHIJS HOLLEMANS",0
  5244. itxt_4        dc.b    "       @ 1997",0
  5245. itxt_5        dc.b    "  #[[[[[[[[[[[[[[$",0
  5246. itxt_6        dc.b    "  \ FIRE = START _",0
  5247. itxt_7        dc.b    "  \ ESC  =  QUIT _",0
  5248. itxt_8        dc.b    "  &]]]]]]]]]]]]]];",0
  5249.  
  5250. itxt_10        dc.b    "     INTRO MUSIC",0
  5251. itxt_11        dc.b    "     ZOLTAR/DOOM",0
  5252. itxt_12        dc.b    "    IN-GAME MUSIC",0
  5253. itxt_13        dc.b    "        RADIUM",0
  5254. itxt_14        dc.b    "     C2P CODE BY",0
  5255. itxt_15        dc.b    "   JUERGEN FISCHER",0
  5256. itxt_19        dc.b    "   [[[[[[[[[[[[[[[",0
  5257.  
  5258. itxt_20        dc.b    "  #[[[[[[[[[[[[[[$",0
  5259. itxt_21        dc.b    "  \ HALL OF FAME _",0
  5260. itxt_22        dc.b    "  &]]]]]]]]]]]]]];",0
  5261.  
  5262. ian_0        dc.b    "   ENTER YOUR NAME",0
  5263. ian_1        dc.b    "   #[[[[[[[[[[[[[$",0
  5264. ian_2        dc.b    "   \             _",0
  5265. ian_3        dc.b    "   &]]]]]]]]]]]]];",0
  5266.  
  5267. its_0        dc.b    "  #[[[[[[[[[[[[[[$",0
  5268. its_1        dc.b    "  \ TRACK SELECT _",0
  5269. its_2        dc.b    "  &]]]]]]]]]]]]]];",0
  5270.  
  5271. its_3        dc.b    "     TRACK    0",0
  5272. its_4        dc.b    "     TIME  0:00",0
  5273. its_5        dc.b    "     SHIPS    0",0
  5274.  
  5275. its_6        dc.b    "    BEST TIME BY",0
  5276. its_7        dc.b    "#[[[[[[[[[[[[[[[[[[$",0
  5277. its_8        dc.b    "\ FIRE  =     PLAY _",0
  5278. its_9        dc.b    "\ LEFT  = PREVIOUS _",0
  5279. its_10        dc.b    "\ RIGHT =     NEXT _",0
  5280. its_11        dc.b    "&]]]]]]]]]]]]]]]]]];",0
  5281.  
  5282.  
  5283. version        dc.b    "$VER: ZeroGravity 1.0 (C) 1997 Matthijs Hollemans",0
  5284.  
  5285.  
  5286. ; =============================================================================
  5287. ;
  5288. ;                                C H I P D A T A
  5289. ;
  5290. ; =============================================================================
  5291.  
  5292.     SECTION    ChipData,DATA_C
  5293.  
  5294. ; *****************************************************************************
  5295. ; Intro copperlist
  5296. ; *****************************************************************************
  5297.     
  5298. IntroCop
  5299.         dc.l     $01fc0000         ;FMODE   
  5300.     
  5301.          dc.l     $01000210         ;BPLCON0 Lores, 8 planes
  5302.          dc.l     $01020000        ;BPLCON1
  5303.          dc.l     $01040000           ;BPLCON2
  5304.          dc.l     $01060000           ;BPLCON3
  5305.          dc.l     $01080000         ;BPL1MOD
  5306.          dc.l     $010a0000        ;BPL2MOD
  5307.          dc.l     $010c0000           ;BPLCON4
  5308.          dc.l     $008e2c81         ;
  5309.          dc.l    $00902cc1        ;
  5310.          dc.l     $00920038         ;
  5311.     dc.l     $009400d0        ;
  5312.  
  5313. IntroCopBpl                ; Bitplane pointers
  5314.          dc.l     $00e00000,$00e20000    
  5315.          dc.l     $00e40000,$00e60000
  5316.          dc.l     $00e80000,$00ea0000
  5317.          dc.l     $00ec0000,$00ee0000
  5318.          dc.l     $00f00000,$00f20000
  5319.          dc.l     $00f40000,$00f60000
  5320.          dc.l     $00f80000,$00fa0000
  5321.          dc.l     $00fc0000,$00fe0000
  5322.  
  5323. IntroCopCol                ; Colour registers (24 bit HL)
  5324.     dc.l    $01060c40        ; Bank0, Hi 12-bits
  5325.     COL32
  5326.     dc.l    $01060e40        ; Bank0, Lo 12-bits
  5327.     COL32
  5328.     dc.l    $01062c40        ; Bank1, Hi 12-bits
  5329.     COL32
  5330.     dc.l    $01062e40        ; Bank1, Lo 12-bits
  5331.     COL32
  5332.     dc.l    $01064c40        ; etc...
  5333.     COL32
  5334.     dc.l    $01064e40
  5335.     COL32
  5336.     dc.l    $01066c40
  5337.     COL32
  5338.     dc.l    $01066e40
  5339.     COL32
  5340.     dc.l    $01068c40
  5341.     COL32
  5342.     dc.l    $01068e40
  5343.     COL32
  5344.     dc.l    $0106ac40
  5345.     COL32
  5346.     dc.l    $0106ae40
  5347.     COL32
  5348.     dc.l    $0106cc40
  5349.     COL32
  5350.     dc.l    $0106ce40
  5351.     COL32
  5352.     dc.l    $0106ec40
  5353.     COL32
  5354.     dc.l    $0106ee40
  5355.     COL32
  5356.  
  5357. IntroCopSpr
  5358.     dc.l    $01200000,$01220000,$01240000,$01260000    
  5359.     dc.l    $01280000,$012a0000,$012c0000,$012e0000    
  5360.     dc.l    $01300000,$01320000,$01340000,$01360000
  5361.     dc.l    $01380000,$013a0000,$013c0000,$013e0000
  5362.  
  5363. IntroCopRainbow
  5364.     dc.l    $2c0ffffe,$1060c40,$1be0346,$1060e40,$1be07b0    ; StartY=44
  5365.     dc.l    $2d0ffffe,$1060c40,$1be0345,$1060e40,$1be06ae
  5366.     dc.l    $2e0ffffe,$1060c40,$1be0345,$1060e40,$1be059d
  5367.     dc.l    $2f0ffffe,$1060c40,$1be0345,$1060e40,$1be048c
  5368.     dc.l    $300ffffe,$1060c40,$1be0345,$1060e40,$1be047b
  5369.     dc.l    $310ffffe,$1060c40,$1be0345,$1060e40,$1be0369
  5370.     dc.l    $320ffffe,$1060c40,$1be0345,$1060e40,$1be0258
  5371.     dc.l    $330ffffe,$1060c40,$1be0345,$1060e40,$1be0247
  5372.     dc.l    $340ffffe,$1060c40,$1be0345,$1060e40,$1be0136
  5373.     dc.l    $350ffffe,$1060c40,$1be0345,$1060e40,$1be0025
  5374.     dc.l    $360ffffe,$1060c40,$1be0345,$1060e40,$1be0013
  5375.     dc.l    $370ffffe,$1060c40,$1be0245,$1060e40,$1be0f02
  5376.     dc.l    $380ffffe,$1060c40,$1be0235,$1060e40,$1be0ef1
  5377.     dc.l    $390ffffe,$1060c40,$1be0235,$1060e40,$1be0de0
  5378.     dc.l    $3a0ffffe,$1060c40,$1be0234,$1060e40,$1be0dde
  5379.     dc.l    $3b0ffffe,$1060c40,$1be0234,$1060e40,$1be0ccd
  5380.     dc.l    $3c0ffffe,$1060c40,$1be0234,$1060e40,$1be0bbc
  5381.     dc.l    $3d0ffffe,$1060c40,$1be0234,$1060e40,$1be0bab
  5382.     dc.l    $3e0ffffe,$1060c40,$1be0234,$1060e40,$1be0a9a
  5383.     dc.l    $3f0ffffe,$1060c40,$1be0234,$1060e40,$1be0988
  5384.     dc.l    $400ffffe,$1060c40,$1be0234,$1060e40,$1be0987
  5385.     dc.l    $410ffffe,$1060c40,$1be0234,$1060e40,$1be0876
  5386.     dc.l    $420ffffe,$1060c40,$1be0234,$1060e40,$1be0765
  5387.     dc.l    $430ffffe,$1060c40,$1be0234,$1060e40,$1be0754
  5388.     dc.l    $440ffffe,$1060c40,$1be0234,$1060e40,$1be0642
  5389.     dc.l    $450ffffe,$1060c40,$1be0234,$1060e40,$1be0531
  5390.     dc.l    $460ffffe,$1060c40,$1be0234,$1060e40,$1be0420
  5391.     dc.l    $470ffffe,$1060c40,$1be0233,$1060e40,$1be041f
  5392.     dc.l    $480ffffe,$1060c40,$1be0233,$1060e40,$1be030d
  5393.     dc.l    $490ffffe,$1060c40,$1be0223,$1060e40,$1be02fc
  5394.     dc.l    $4a0ffffe,$1060c40,$1be0223,$1060e40,$1be02eb
  5395.     dc.l    $4b0ffffe,$1060c40,$1be0223,$1060e40,$1be01da
  5396.     dc.l    $4c0ffffe,$1060c40,$1be0223,$1060e40,$1be00c9
  5397.     dc.l    $4d0ffffe,$1060c40,$1be0223,$1060e40,$1be00b7
  5398.     dc.l    $4e0ffffe,$1060c40,$1be0123,$1060e40,$1be0fa6
  5399.     dc.l    $4f0ffffe,$1060c40,$1be0123,$1060e40,$1be0e95
  5400.     dc.l    $500ffffe,$1060c40,$1be0123,$1060e40,$1be0d84
  5401.     dc.l    $510ffffe,$1060c40,$1be0123,$1060e40,$1be0d73
  5402.     dc.l    $520ffffe,$1060c40,$1be0123,$1060e40,$1be0c61
  5403.     dc.l    $530ffffe,$1060c40,$1be0123,$1060e40,$1be0b50
  5404.     dc.l    $540ffffe,$1060c40,$1be0122,$1060e40,$1be0b5f
  5405.     dc.l    $550ffffe,$1060c40,$1be0122,$1060e40,$1be0a4e
  5406.     dc.l    $560ffffe,$1060c40,$1be0122,$1060e40,$1be093c
  5407.     dc.l    $570ffffe,$1060c40,$1be0122,$1060e40,$1be092b
  5408.     dc.l    $580ffffe,$1060c40,$1be0122,$1060e40,$1be081a
  5409.     dc.l    $590ffffe,$1060c40,$1be0122,$1060e40,$1be0709
  5410.     dc.l    $5a0ffffe,$1060c40,$1be0112,$1060e40,$1be07f8
  5411.     dc.l    $5b0ffffe,$1060c40,$1be0112,$1060e40,$1be06e6
  5412.     dc.l    $5c0ffffe,$1060c40,$1be0112,$1060e40,$1be05d5
  5413.     dc.l    $5d0ffffe,$1060c40,$1be0112,$1060e40,$1be04c4
  5414.     dc.l    $5e0ffffe,$1060c40,$1be0112,$1060e40,$1be04b3
  5415.     dc.l    $5f0ffffe,$1060c40,$1be0112,$1060e40,$1be03a2
  5416.     dc.l    $600ffffe,$1060c40,$1be0112,$1060e40,$1be0290
  5417.     dc.l    $610ffffe,$1060c40,$1be0111,$1060e40,$1be028f
  5418.     dc.l    $620ffffe,$1060c40,$1be0111,$1060e40,$1be017e
  5419.     dc.l    $630ffffe,$1060c40,$1be0111,$1060e40,$1be006d
  5420.     dc.l    $640ffffe,$1060c40,$1be0111,$1060e40,$1be005b
  5421.     dc.l    $650ffffe,$1060c40,$1be0011,$1060e40,$1be0f4a
  5422.     dc.l    $660ffffe,$1060c40,$1be0011,$1060e40,$1be0e39
  5423.     dc.l    $670ffffe,$1060c40,$1be0011,$1060e40,$1be0d28
  5424.     dc.l    $680ffffe,$1060c40,$1be0011,$1060e40,$1be0d27
  5425.     dc.l    $690ffffe,$1060c40,$1be0011,$1060e40,$1be0c15
  5426.     dc.l    $6a0ffffe,$1060c40,$1be0011,$1060e40,$1be0b04
  5427.     dc.l    $6b0ffffe,$1060c40,$1be0001,$1060e40,$1be0bf3
  5428.     dc.l    $6c0ffffe,$1060c40,$1be0001,$1060e40,$1be0ae2
  5429.     dc.l    $6d0ffffe,$1060c40,$1be0001,$1060e40,$1be09d1
  5430.     dc.l    $6e0ffffe,$1060c40,$1be0000,$1060e40,$1be09cf
  5431.     dc.l    $6f0ffffe,$1060c40,$1be0000,$1060e40,$1be08be
  5432.     dc.l    $700ffffe,$1060c40,$1be0000,$1060e40,$1be07ad
  5433.     dc.l    $710ffffe,$1060c40,$1be0000,$1060e40,$1be079c
  5434.     dc.l    $720ffffe,$1060c40,$1be0000,$1060e40,$1be068a
  5435.     dc.l    $730ffffe,$1060c40,$1be0000,$1060e40,$1be0579
  5436.     dc.l    $740ffffe,$1060c40,$1be0000,$1060e40,$1be0468
  5437.     dc.l    $750ffffe,$1060c40,$1be0000,$1060e40,$1be0457
  5438.     dc.l    $760ffffe,$1060c40,$1be0000,$1060e40,$1be0346
  5439.     dc.l    $770ffffe,$1060c40,$1be0000,$1060e40,$1be0234
  5440.     dc.l    $780ffffe,$1060c40,$1be0000,$1060e40,$1be0223
  5441.     dc.l    $790ffffe,$1060c40,$1be0000,$1060e40,$1be0112
  5442.     dc.l    $7a0ffffe,$1060c40,$1be0000,$1060e40,$1be0001
  5443.     dc.l    $7b0ffffe,$1060c40,$1be0000,$1060e40,$1be0000
  5444.     dc.l    $ac0ffffe,$1060c40,$1be098b,$1060e40,$1be0ebc    ; Restore COL31
  5445.  
  5446. IntroCopEnd    
  5447.     dc.l     $fffffffe            ; End of copperlist
  5448.  
  5449. ; *****************************************************************************
  5450. ; Chip graphics, music, etc...
  5451. ; *****************************************************************************
  5452.  
  5453.         ALIGNQUAD
  5454. SpriteData    dc.l    0,0,0,0            ; Empty sprite
  5455.  
  5456. IntroPic    incbin    "Intro.RAW"        ; 320x256x64 Intro picture
  5457.  
  5458. GameMusic    incbin    "GameMusic.MOD"        ; In-game music module
  5459. IntroMusic    incbin    "IntroMusic.MOD"    ; Intro music module
  5460.  
  5461. ; *****************************************************************************
  5462.